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Preface 


The underlying premise of this book is our belief that teachers are by 
far the best potential source for the development of instructional com- 
puting materials. Thus, we have attempted to provide a practical book 
that presents the fundamentals of the BASIC programming language 
for the Commodore microcomputer, and explains how to apply them 
to the design and development of instructional computing programs. 
In fifteen years of teaching instructional computing courses to more 
than 2000 students, it has been our experience that, given these fun- 
damentals, teachers are able to expand upon them and develop effi- 
cient programs to meet their specific needs. 

Although the text may be used by teachers who have little or no 
computing experience, we want to emphasize that we are not 
attempting to teach general computer literacy: There is little mention 
of the history, architecture, or function of computers in society. Nor 
is this book for training computer programmers: Several language 
Statements common to programming texts are omitted because their 
application is not typical of the instructional use of computers. Rather, 
in keeping with our goal of providing fundamentals, we present what 
a teacher needs to know in order to begin designing and developing 
instructional computing materials. 

The book consists of eleven chapters and seven appendices, divided 
into two parts. In Part One, the first four chapters discuss the BASIC 
programming language statements and commands common to five 
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areas of instructional computing use: problem solving, drill and prac- 
tice, tutorial dialog, simulation, and testing. Chapter Five summa- 
rizes and reviews these statements and their applications. Chapters 
Six and Seven give relatively short example and model programs in 
each of the five areas. Chapter Eight presents a detailed examination 
of string functions and their applications to instructional computing. 
Chapter Nine discusses and demonstrates some simple uses of color 
and graphics as instructional techniques. 

In Part Two, Chapters Ten and Eleven discuss the specific steps 
needed first to design and then to develop instructional computing 
materials. Ten criteria for the evaluation of instructional software are 
also included. The appendices include instructions for the general 
operation of the microcomputer and its disk system; a summary of 
commands and statements and their uses; answers to selected ques- 
tions and problems given in the chapters; listings of programs given 
as solutions to certain problems; and instructions for making music 
with the Commodore 64. 

As a matter of personal preference, some readers may wish to study 
Chapters Ten and Eleven on design and development before reading 
the chapters on BASIC. However, we believe that practical design and 
development can occur only after the working guidelines for the lan- 
guage are established. Thus, BASIC fundamentals are presented before 
we discuss design and development. We have found that presentation, 
demonstration, and discussion of the entire book requires 30—40 “class 
contact” hours. An equal or greater amount of student—terminal time 
outside of class is needed. 

We discuss more than 40 programs, ranging from simple introduc- 
tions to more sophisticated simulations. These programs are con- 
tained on a disk that is provided without cost by the publisher to 
adopters who order 25 or more copies of the book. We believe that 
the programs on the disk are very important and integral to the text; 
therefore, permission is hereby given to copy the disk for class-related 
use. 

We would like to extend our appreciation to Carey Van Loon and 
Jami Hall of California State University, San Bernardino, for their 
excellent photographic assistance; to Dee Dee Watkins and her hus- 
band, Morgan, of the University of Texas at Austin; to Glenn Bull of 
the University of Virginia and Arthur Wiebe of Fresno Pacific College, 
who reviewed the entire manuscript; and to Carla Cramer, who keyed 
in over 30 of the programs. A special note of thanks is also due the 
people at Brooks/Cole Publishing Company who were involved with 
the development of this book. 


Herbert L. Nickles 
George H. Culp 
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Instructional Computing Fundamentals 
for the Commodore 64° 


INTROGUCTION 


This book describes an approach to using a common programming 
language, BASIC, for the design and development of instructional 
computing programs for Commodore 64 microcomputers. Its eleven 
chapters discuss certain fundamentals of BASIC and the design and 
developmental processes that provide a foundation for the production 
of instructional computing programs. 

More than 100 books are available that teach BASIC (the Beginner’s 
All-purpose Symbolic Jnstruction Code, developed by John G. Kemeny 
and Thomas E. Kurtz at Dartmouth College). Although most of these 
books are very thorough in describing the language, they usually 
emphasize problem-solving applications. Our emphasis, on the other 
hand, is on instruction in the use of BASIC to design and develop 
materials for instructional computing. 

Simply put, any use of computing techniques within the classroom 
may be broadly defined as instructional computing (sometimes known 
as computer-assisted instruction or CAI). Specifically, it includes: 


1. Problem solving, in which computer programs are written to solve 
discipline-oriented problems. 

2. Drill and practice on fundamental concepts using computer pro- 
grams in a given discipline. 


3. Tutorial dialog, in which computer programs provide “‘tutorlike” 
assistance in pointing out certain types of mistakes, providing review 
if needed, skipping areas in which proficiency is shown, and so on. 

4. Simulation, in which computer programs allow manipulation and 
interpretation of certain elements related to given physical or social 
phenomena without the constraints of time, space, equipment, and 
environmental or logistical limits. 

5. Testing, in which computer programs ask the questions, check the 
answers, and record the performance. 


For our purposes, the term instructional computing includes all of 
these applications. 


The use of BASIC. An introduction to some of the fundamentals of 
BASIC is provided in this book. This introduction is not intended to 
produce highly accomplished and skilled programmers. Rather, it 
gives only the fundamentals needed to write simple programs for 
instructional computing applications. Model programs are described 
that illustrate this use. 

Although many different programming languages may be used in 
instructional computing, there are several reasons for using BASIC: 


1. It is easy to learn and easy to use. 

2. It is acommon interactive language (see Section 1.3), available on 
large computer systems costing millions, medium-sized systems 
costing hundreds of thousands, minisystems costing tens of thou- 
sands, and small systems (commonly called micros or personal 
computers) costing a few hundred to a few thousand dollars. 

3. It may be used in all of the applications of instructional computing 
described above. 

4. It is one of the introductory computer languages used in most sec- 
ondary and many elementary schools. 

5. It is the most common language of microcomputers—an area of 
computer technology that is making the major impact on educa- 
tion in this decade. | 


Design. Following the introduction to BASIC, a method for design- 
ing instructional materials called the systems approach is outlined. 
This approach, in essence, is a logical, step-by-step process for iden- 
tifying the tasks and activities needed in the production of validated 
instructional materials. 


Development. The development of instructional computing pro- 
grams by you is the ultimate goal of this book. Initially, the devel- 
opment phase overlaps the design phase, in which paper, pencil, and 
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brain power are the principal ingredients. This process involves out- 
lining the rationale, objectives, and instructional sequence of one or 
more instructional computing programs. After this program design 
is outlined on paper, it is translated into the BASIC programming 
code. The last step is to spend considerable time at a computer enter- 
ing, testing, and refining what has been designed and developed on 
paper. 

As a final introductory note, we emphasize that this book assumes 
no previous experience whatsoever with computers. On the other hand, 
the book does not provide detailed information on computers in gen- 
eral or how they operate. Rather, it introduces the ways and means 
by which the Commodore 64 microcomputer may be used within the 
instructional process. 

Now, let us begin by getting down to the BASICs. .. 


; 
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A Inrroduction To the BASIC 
Programming Lanquace 


Part One 


Chapter One 


A BASIC Program of 


My Very Own 


“Nothing in life is to be 
feared. It is only to be 
understood.” 

Marie Curie 


“In certain trying circum- 
stances, urgent circum- 
stances, desperate circum- 
stances, profanity 
furnishes a relief denied 
even to prayer.” 

Mark Twain 


“Tf at first you don’t suc- 
ceed, you are running 
about average.” 

M.H. Alderson 


2 a rea 
Think About This 

(for Fun) 

Rearrange the letters of 
NEW DOOR to form one 
word. [Note: Answers to 
Think About This (for 
Fun) questions may be 
found in Appendix C.] 


aE EET 
Think About This 
(Seriously) 

Does a computer possess 
intelligence? 


1.1 Objectives 


For the successful completion of this chapter, you should be able to: 


1. List five general applications of instructional computing (In- 
troduction). 

2. Define two ways in which computers may be accessed (Section 
1.3). | 

3. List the steps necessary to “boot up” (power up) a computer sys- 
tem (Appendix A). ; 

4. State how a BASIC program may be entered on that system after 
the ‘‘booting up” (Section 1.6 and Appendix A). — 

5. Define what (not who) composes a BASIC program (Section 1.4.1). 

6. Distinguish between BASIC statements and commands (Sections 
1.4.1-1.4.2). 

7. Define the action of the following BASIC commands: NEW, RUN, 
LIST, and SAVE (Section 1.4.2). 

8. Define and give at least one example of both a numeric variable 
and a string variable (Section 1.4.3). 

9. Describe the use of commas and semicolons in BASIC for pur- 
poses other than punctuation (Section 1.4.4). 

10. Define the purpose and give at least one example of the following 
BASIC statements: PRINT, INPUT, LET, and END (Sections 1.5.1— 
1.5.4). 

I1. Describe three simple techniques for editing BASIC programs 
(Section 1.6 and Appendix B, Section B.5). 


1.2 Computer Use: A Brief History and Rationale 


Electronic computers have been in use since the late 1940s. In the 
period from 1948 to 1965, they were used primarily for what their 
name implies: computing, or ‘number crunching’ as it is sometimes 
called. Starting about the mid-sixties, however, educators began 
experimenting with applications of computers in the instructional 
process that involved more than just computing. 

In the decade following, this use expanded, and, just as computers 
have become ingrained in our society, instructional computing is 
becoming commonplace in our schools. (These points may be empha- 
sized by the fact that since 1975 over 1,500,000 microcomputers have 
been purchased, many for home or school use.) 

It is very important to recognize that computers are not replacing 
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teachers! The fundamental principle underlying the use of com- 
puters—regardless of the profession using them—is that they are 
incredibly fast and accurate tools, and they allow people to do certain 
activities in a manner that has never before been possible. Thus, the 
use of computers in instruction is basically (no pun intended) that of 
supplemental applications. Computers allow teachers and students to 
do certain educational processes faster, with greater accuracy, and in 
a manner not possible before they came on the scene. 

Computer programs can be very helpful in providing patient, rou- 
tine drill on fundamental concepts, in generating and grading tests 
in a given discipline, and in many other applications. In any of these 
cases, the most effective programs are those designed by teachers: the 
professionals in the field who are aware of what is to be taught and 
how to teach it. As yet, there is no computer program that can lead 
an intelligent and sensitive discussion on any given abstract concept. 
There are no teachers out of a job because they have been replaced 
by a computer! That is something worth remembering. 


1.3 Access to Computers 


A computer is an extremely fast and accurate processor of data. In 
the simplest sense, most common computer systems may be viewed 
as four units connected electronically: 


1. An input unit (such as a computer terminal keyboard), through 
which data is entered. 

2. A processor unit, which stores the data input and processes it 
electronically. 

3. An output unit (such as a computer terminal screen or printer), 
which shows the results of processing the data input. 

4. A data storagel/retrieval unit (such as a disk drive), which stores data 
on and retrieves data from some magnetic medium (such as a floppy 


disk). 


Figure 1.1 shows these units in block form. 

Until the late 1960s, the primary means of access involved punching 
program statements, data, and commands onto computer cards. This 
“batch” of cards was read (input) by a card reader and eventually a 
printout (output) of the program “run” was retrieved. This type of 
access is commonly referred to as batch access, or batch processing. 

Since the early 1970s, there has been a very strong trend toward 
accessing computers via computer terminals. In the simplest sense, 
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FIGURE 1.1 
Components of a 
computer system 


INPUT UNIT 
(KEYBOARD) 


OUTPUT UNIT 
(PRINTER) 


OUTPUT UNIT 
(TV MONITOR) 


PROCESSOR 


STORAGE UNIT 
(DISK DRIVE) 


a terminal consists of a keyboard, similar to that of a typewriter, for 
input of statements, data, commands, and so forth, with output dis- 
played either on a cathode ray tube (CRT) screen or paper (hardcopy) 
at the terminal. This type of access is known as interactive (a user 1s 
interacting directly with the computer or a program), or timesharing 
(there may be literally scores of terminals in remote locations “shar- 
ing the time” of one computer). In most instances, the terminal is 
connected to the computer via standard telephone lines. 

Microcomputers are an exception to this. Here the computer, ter- 
minal, display, and other components are usually provided as a unit 
small enough to fit on a desk top (Figure 1.2). There are no telephone 
connections or sharing of computer time. These features make the 
unit more portable, less prone to equipment failure, less expensive, 
and, consequently, well suited to the classroom. 

For our use here, only microcomputers are discussed. The examples 
and assignments in the book assume that the reader has access to a 
Commodore 64 microcomputer with BASIC, one floppy disk drive, a 
video monitor or TV, and at least 64K of random access memory 
(RAM). 

It is very important that the reader, particularly the reader new to 
microcomputers, become familiar with the processes needed to access 
(use) the system. This first involves gaining confidence in “booting 
up” the system. Refer to Appendix A for a step-by-step procedure to 
accomplish this. 
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FIGURE 1.2 
Commodore 64 
microcomputer 
system: keyboard, 
monitor, disk drive, 
and floppy disk. 


1.4 A Bit About BASIC Before Beginning 


There are a few general points about BASIC that should be made 


early. Consider these as some of the ‘‘rules of the game” to follow for 
BASIC. 


1.4.1 Statements 


A BASIC program may be defined as at least one ‘‘instruction’” per- 
formed (executed) by the computer. Instructions are written in the 
form of statements. These statements are words (often verbs), such as 
PRINT, INPUT, and so on, that make some degree of sense to both a 
user and the computer. (Of course, the computer has been pro- 
grammed by people to “‘understand’’ these words.) The length of a 
BASIC statement must not exceed 80 total characters, including spaces. 

BASIC statements are always numbered, generally by tens (16, 20, 
30, etc.). They could be numbered 1, 2, 3, and so on, but no additional 
statements could be inserted into the program, say, between state- 
ments numbered 1 and 2. Statements can be inserted between lines 
numbered 10 and 20 (11, 12, etc.). Thus, the numbering convention is 
usually in increments of ten. 
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1.4.2 Commands 


BASIC commands issue specific information to the computer system 
about the program. For example, the command NEW instructs the 
system to prepare for a new BASIC program to be entered at the 
terminal by “‘erasing’’ any program statements that are currently in 
the system’s memory. The command LIST will produce a listing of 
the BASIC statements comprising the program in memory. 

The command RUN executes (RUNs) the BASIC statements in their 
increasing numerical sequence unless one of those statements trans- 
fers the execution to another part of the program. (This process is 
called branching and will be discussed later.) The command SAVE 
“filename’’,8 instructs the system to save on the disk the program in 
memory under the name “filename”. The program is stored on a floppy 
disk placed in the disk drive. (The “filename” may be just about any 
name, but short, descriptive names should be considered.) 


1.4.3 Variables 


Nearly all BASIC programs described in this text will include values 
that may vary as the program is executed (RUN). These values, called 
variables, could be students’ names, test scores, responses for correct 
or incorrect answers, and so forth. 

A variable, in BASIC, may be represented (named) simply by any 
letter of the alphabet. However, the name could be as long as eighty 
characters if the first character in the name is a letter, and the rest of 
the name contains only letters or numbers. However, only the first 
two characters are considered by the Commodore. Realistically, var- 
iable names should be short and descriptive. Initially (for simplicity), 
we will use only one or two characters for variable names in our 
example programs. Later, where appropriate, longer variable names 
that better describe their values may be used. For our purposes here, 
there are two types of variables: 


1. Numeric. The value of the variable is always numeric: 1.0, 2, 110.5, 
-3.1365, and so on. 

2. String (or alphanumeric). The value of the variable may be alpha- 
betic characters or numbers or a mixture of both. Such values are 
always enclosed in quotation marks: ‘““ABCDEF’”, “CS395T”, “JOHN 
JONES”, ‘“NOW IS THE TIME”, and so on. 


A dollar sign ($) is added to the name of the string variable to distin- 
guish it from a numeric variable. N$, Al$, Z9$, and FI$ all represent 
string variable names, while N, Al, Z9, and FI all represent numeric 
variable names. 
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Examples: 


A = 123 
(The numeric variable named A has a value of 123 assigned to it.) 
A$ = "ABC" 


(The string variable named A$ has a value of ABC assigned to it.) 


1.4.4 Commas (,) and Semicolons (; ) 


Commas and semicolons have specific uses in BASIC. They can be 
used in the normal fashion as punctuation marks, or they can be used 
to instruct the system to display information in special ways. For 


example, every so often in a BASIC program there may be a need to 


have information printed in columns. Suppose a list of student names, 
test score averages, and final numeric grades were to be displayed 
(PRINTed). Assume the values are stored in the variables N$, T, and 
F, respectively. The BASIC statement 


PRINT N#oToF 


would display this information in columns ten spaces apart from the 
start of the first value to the start of the second value, and so on. Here, 
the comma acts as an automatic tabulator of ten spaces. Thus, any 
line can have “fields” of display starting at column 1, column 1 1,and 
so on. This can be useful when certain types of information, for exam- 
ple, name and grade for a series of students, is to be displayed. (See, 
for example, Sections 1.5.1 and 1.5.3.) | 

If one wished the above information to be closepacked (printed with- 
out any separating spaces), the semicolon would be used in place of 
the comma. In essence, then, the comma, when not used as a punc- 
tuation mark, instructs the system to tab ten spaces before printing; 
similarly, the semicolon instructs the system not to skip any spaces 
before printing. 

These and other examples of their use will be shown shortly, but 


_ for now be aware that the comma and semicolon can have special 


meanings when not used as punctuation. 


1.2 BASIC Statements for This Chapter 


Purpose 


1.3.1 Statement—PRINT 


Displays (PRINTs) information at the computer terminal. This infor- 
mation may be text, numeric variable values (see Section 1.5.3), or 
string (alphanumeric) variable values (see Section 1.5.3). When text 
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Example: 


Result of Execution: 


Example: 


Result of Execution: 


Purpose 


Examples: 


is to be displayed, it must be enclosed in quotation marks ("') in the 
PRINT statement. (Note: BASIC statements, such as PRINT, will be 
shown in this book in upper case for clarity. However, statements 
may also be typed in lower case, if so desired.) 


PRINT "Hello. What’s your first name" 
Hello. What’s your first name 


In addition, certain shorthand conventions are available for the Com- 
modore 64 microcomputer. For example, the shorthand for the state- 
ment PRINT is the question mark (?). Thus, PRINT statements may 
be literally typed as: 


iO ? "Hello. What is your first name" 


The system will automatically interpret the ? as the word PRINT. 


10 A=123 

20 A$="ABC" 

30 7 ALAS 

123 ABC 


<-10 spaces> 


1.3.2 Sratement—INPUT 


Allows numeric or alphanumeric information to be entered (INPUT) 
into a BASIC program during its execution. The information is entered 
through the terminal keyboard and is assigned to a variable specified 
by the program author. The variable will have the assigned value until 
changed by another INPUT or LET (see below) statement for that 
variable. 


INPUT N (for numeric information) 

INPUT N$ (for alphanumeric information) 

INPUT "Your name is"3N$% (text with statement) 
INPUT "Your age is"§N (text with statement) 


Note: Most BASIC systems automatically display a question mark 
when the INPUT statement is executed. In computer terms, the ques- 
tion mark (?) is called the input indicator, or prompt. Program exe- 
cution is stopped until the RETURN key is depressed. Also, note that 
the use of quotes discussed earlier for string variables (Section 1.4.3) 
is not required when string information is INPUT. The dollar sign ($) 
instructs the system that any input will be assigned as a string vari- 
able. Also note that text may be enclosed in quotation marks as part 
of the INPUT statement. However, a semicolon must follow the last 
quotation mark before the variable name. 
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Program Example: 


Result of Execution: 


Purpose 


Program Example: 


Result of Execution: 


Purpose 


10 PRINT "Hello. What’s your first name" 


20 INPUT N&$ 
30 PRINT N$ " is a nice name," 
40 END 


Hello. What’s your first name 
?SAMMY (the question mark appears as a prompt, SAMMY is typed, 
and the RETURN key depressed) 


SAMMY is a nice name, 


1.9.3 Starement—LET 


Assigns values to variables. This action may be “direct,” as in LET X 
= 20 (X would have a value of 20), or it may be “indirect,” as in LET 
X = (2*Y)/3 (X would have a value equal to the result of dividing 3 
into the product of 2 times the value of Y). The ‘‘«”’ is the symbol 


(character) used for multiplication; the ‘/’’ is the symbol used for 


division. It may also be used to assign alphanumeric values, as in: 
LET AS = "Here’s the answer!" 


Note: In most BASIC systems, the term LET is optional, so the state- 
ment X = 20 would be equivalent to LET X = 20. Also, note here that 
assignment to a string variable requires the use of quotes. The string 
content must be enclosed in quotes. 


10 LET N#& = "JIM JONES" 

20 LET Ti = 100 

30 FI = 89 (Note: LET is omitted) 

40 PRINT "STUDENT" s"TEST 1" s"FINAL" 


80 PR I NT Ue ee fg tt ' Me ote ot it $ L) Dadar it 
GO PRINT N$sTi+sFI 

70 END 

STUDENT TEST i FINAL 
JIM JONES 100 BY 


What would happen if the commas.in statements 40—60 were replaced 
by semicolons? (Note: Answers to this and other questions found within 
the book are supplied under their respective chapter and section num- 
bers in Appendix C.) 


1.7.4 Statement—END 


Ends program execution. On many systems, the END statement is not 
required for program execution. (See also the statement STOP in 
Appendix B.) 


oo 
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PROGRAM 1 


1.3.37 PROGRAM 1: Years-to-Days Conversion 


Note: In this book we will be discussing more than 30 sample pro- 
grams. Most of the programs are named in the sequence of their dis- 
cussion: PROGRAM 1 comes before PROGRAM 2, and so on. 

The statements discussed thus far can be combined to make a pro- 
gram. But what is the program to do? Some stage of program design 
must be defined that illustrates the use of these statements. Arbitrar- 
ily, then, the program is designed to: 


1. Ask for a person’s (the program user’s) name (PRINT). 

2. Store the name entered in a string variable (INPUT). 

. Greet that person with the name entered (PRINT). 

Skip a line so that the screen is not too crowded (PRINT). 
Ask for the person’s age in years (PRINT). 

Store the age entered in a numeric variable (INPUT). 

. Convert the age in years to the age in days (LET). 

. Skip a line to avoid crowding on the screen (PRINT). 

. Display this age in days (PRINT). 

. End the program (END). 


— 


Note: In creating any new program, the following sequence should 
be followed: 


Enter NEW 

Enter the program statements 

Enter SAVE “‘<filename>’’,8 

. RUN the program to test it 

. Make any needed modifications 

6. When satisfied, enter SAVE ‘““@0:<same filename>'’,8 


aa w No 


Step 6 above replaces the old version of the program <filename> with 
the new (modified) version. If a copy of both versions is desired, then 
simply enter SAVE ‘‘<different filename>",8. Also, the statements 
comprising a program in memory may be seen by entering LIST. Ifa 
specific line (statement) number or a range of line numbers is desired, 
enter LIST <line number> or LIST <beginning line—-ending line>, 
respectively. 
RUN from disk and refer to the listing and run of PROGRAM 1. 


10 "HELLO. WHAT‘S YOUR FIRST NAME" 
Statement 10 displays a greeting and asks for the user's first name. 
20 INPUT N$ | 


Statement 20 automatically displays a ‘‘?” and waits for input from the terminal 
keyboard. Whatever is typed is assigned as a value to the variable N$ when the 
RETURN key is depressed. 
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30 


40 


30 


SQ 


70 


B80 


930 


PRINT "HOWDY>s " N& 


This value is displayed with the text, ‘“Howdy, ° in statement 30. Carefully note 
that the variable N$ is not enclosed within the quotation marks. (Why is the blank 
space included within the quotation marks?) 


PRINT 

Statement 40 prints a blank line, and statement 50 requests the user’s age in years. 
PRINT "TELL ME. . .».WHAT IS YOUR AGE IN YEARS"$ 

INPUT A 


Statement 60 automatically displays a “?” and waits until some number is typed 
and the RETURN key depressed. This value is assigned to variable A. 


D=A * 365 


Statement 70 assigns a value to variable D equal to the value of A times 365 
(converting years to days). 


PRINT 
Statement 80 prints a blank line. 
PRINT "WELL+ " N& "+ YOU HAVE BEEN BREATHING 


‘ 


100 PRINT "FOR AT LEAST " D " DAYS!" 


The value of variable D, with appropriate text, is then displayed in statements 90 
and 100. Again, carefully note that only the text to be displayed, not the variable 
names (N$ and D), is enclosed within the quotation marks. 


110 PRINT » "BYE-BYE, " N$ 
120 END 


1.6 Editing BASIC 


Statement 110 skips over ten spaces and displays a farewell. Statement 120 ends 
program execution. 


PROGRAMS 


Most BASIC systems have some means by which programs may be 
edited. For example, a PRINT statement with a misspelled word or 
typographical error may be corrected by editing. Three simple editing 
techniques are: 


1. Cursor keys (e.g., >). Two cursor keys (CRSR) are located on the 
lower right area of the keyboard. With the additional use of the 
shift key, pressing one of these keys allows movement of the cursor 
in any of four directions. Thus, the cursor may be located wherever 
an error is found or insertion is desired. Pressing the INST/DEL 
key (upper right keyboard area) will DELete the character to the 
left of the cursor. If the SHIFT key is pressed with this key, 
INSerTions may be performed. Practice using these keys on some 
sample statements. They make editing a relatively simple task once 


you have mastered their use. 
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2. Retyping the statement. A statement may be replaced by simply 
retyping the line number followed by the correct statement. 

3. Deleting lines. A statement may be deleted entirely by typing the 
line number only and then depressing the RETURN key. 


Although these are only three simple techniques for editing, they will 
get you started and can be extremely useful. Knowledge of the CRSR 
keys on the keyboard and their use will be particularly helpful. 


1.7 Posers and Problems 


(Note: Many of the ‘‘Posers and Problems”’ given in this book may be 
entered and run as programs. Where possible, this should be done, 
since it will be of help in arriving at the solutions. As a last resort, or 
to check your work, refer to Appendix C. Problems headed by an aster- 
isk (*) may be considered as more difficult problems.) 


1. Correct any errors found in the following BASIC statements: 


10 PRIMT "Hello 

270 PRIMT What’s your height in inches" 
30 INPUT 

40 M = 2,594 *# ; 

50 PRINT You are M centimeters tall! 
GO FINISH 


2. Mentally determine the value of X in each of the following if Y = 6. 
X = 25 
X = (2*Y)/3 
X=Y 
X = (2*Y)/(3*Y) 
X = (Y*Y)/(Y*2) 


3. Why is a space included within the quotation marks before or 
after the variable names in statements 90, 100, and 110 in PRO- 
GRAM 1? Are the variables N$ and D actually enclosed in quo- 
tation marks as they might appear in statements 90 and 100? 

4. Note the different position of the two question marks in the sam- | 
ple RUN of PROGRAM 1. What caused the difference? (Hint: 
Carefully examine statements 10 and 50.) 

5. Modify PROGRAM 1 to output the user’s age in ‘“‘heartbeats”’ (use 
H as the variable), assuming a pulse rate of 72 beats per minute 
(and 60 minutes per hour, 24 hours per day). 
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6. What would result if the following statements were executed? 


10 AS = "NAME" 

209 BS "SCORE" 
30 C$ = "AVERAGE" 
40 PRINT A%+BSsC$ 
oO END 


7. What would result if the following statements were executed? 
(Assume you input your own name and weight.) 


10 PRINT "Your first name is" 


20 INPUT N¢ 
30 PRINT "Your weight in Pounds is"35 
40 INPUT P 


20 K = P/2,2 

GO 2 = P * 1G 

70 PRINTs+"Wows " NS UE" 

BO PRINT "That’s only " K " Kilograms+s buts gees" 
90 PRINT+s"it’s " 2 " ounces!" 

100 END 


“8. Write a program that converts a temperature in Celsius to a tem- 
perature in Fahrenheit. The user should enter the temperature 
for conversion from the keyboard. (Hint: The formula for conver- 
sion is F = (C * 9/5) + 32.) 

“9. Write a program that converts two variables, cups and ounces, 
into ounces. For example, 2 cups and 3 ounces equal 19 ounces. 

*10. Write a program that inputs two string variables, first name and 
last name, and prints out a salutation of your choice using the 
person's full name. 
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and What To Do with It 


“Even if you're on the 

right track, you'll get run 

over if you just sit there.”’ 
Will Rogers 


“Man's mind stretched to 
a new idea never goes 
back to its original 
dimensions.’ 

Oliver Wendell Holmes 


Think About This 

(for Fun) 

What do you sit on, sleep 
on, and brush your teeth 
with? 


SSS eee 
Think About This 
(Seriously) 

Can computer programs 


teach? 


2.1 Objectives 


For the successful completion of this chapter, you should be able to: 


1. Define the purpose and give at least one example of each of the 
BASIC statements REM, GOTO, IF-THEN, and ON-GOTO (Sec- 
tions 2.2.1—2.2.4). 

2. Define the purpose and give at least one example of each of the 
BASIC functions RND(0) and INT (Section 2.3). 

3. Define the purpose of the BASIC command LOAD (Section 2.4). 

4. Define the purpose and give at least one example of the PRINT 
TAB statement (Section 2.5.1). 

5. Alone and unafraid, boot up a microcomputer system (Appen- 
dix A). 

6. Design, enter, and RUN a BASIC program that includes the state- 
ments discussed in Chapters 1 and 2. 


2.2 BASIC Statements for This Chapter 


Purpose 


Example: 


Purpose 


Example: 


2.2.1 Statement—REM 


Used as a REMinder or REMark to document the listing of BASIC 
programs. That is, REM gives a means by which internal notes may 
be made in the program listing. These notes will provide information 
about the program, such as which variables are used and their pur- 
pose (commonly called a dictionary of variables), and will identify 
special program routines or strategies, separating the program into 
segments so that the program listing is easy to read. The REM state- 
ment is not executed during a program RUN; thus, the only time this 
is displayed is after a LIST command. 


REM ===The Variable A is the age in years=== 


(The only purpose of characters such as = = = is to make the REM 
statements stand out in the listing of the program.) 


2.2.2 Statement—GOTO 


Unconditionally transfers (branches) program execution to the spec- 
ified statement number. 


GOTO 100 


Note: Use of the GOTO statement in programs should be minimized. 
If this statement is used excessively, following the “flow” of a program 
in a “frame-by-frame” fashion can become very difficult. 


sn 
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2.2.35 Statement—IF-THEN 


Purpose Conditionally transfers (branches) program execution to the specified 
statement number if, and only if, the defined variable relationship is 
true. 

Examples: IF X = 1 THEN 100 


(Transfer to statement 100 will occur only if X is equal to 1.) 

IF ¥Y <2 Z THEN 100 

(Transfer to statement 100 will occur only if the value of Y is not equal 
to the value of Z.) 

IF A&A <= 2 THEN 100 


(Transfer to statement 100 will occur only if the value of A is less than 
or equal to 2.) 


IF A = 2 THEN 100 


(Transfer to statement 100 will occur only if the value of A is greater 
than or equal to 2.) 


IF A$ = "YES" THEN 100 


(Transfer to statement 100 will occur only if the value of A$ is equal 
to (the same value as) the character string YES.) 

Also, note that IF-OR-THEN and IF-AND-THEN statements are 
possible: 


IF A = 1 OR A = 10 THEN 100 


(Transfer to statement 100 will occur only if the value of A is less than 
1 or greater than 10.) 


IF A = 2 AND B = 3 THEN 100 


(Transfer to statement 100 will occur only if the value of A is equal to 
2 and the value of B is equal to 3.) | 
Combinations of string and numeric variables also may be used: 


IF 7% = "YES" AND C > 8 THEN 100 


(Transfer to statement 100 will occur only if the value of Z$ is equal 
to the string YES and the value of C is greater than 8.) 

Make special note that many statements such as PRINT, (LET), and 
others to be seen in later chapters can be included in the IF-THEN 
statement. If the condition defined by the IF-THEN statement is true, 
the statement included will be executed; otherwise, execution contin- 
ues with the next numbered statement. 


IF 6 » 69 THEN PRINT "You passed!" 
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Purpose 


Example: 


(If the value of S is greater than 69, then “You passed!” will be PRINTed.) 
IF Z2$ = "N" THEN A = 0 


(If the value of Z$ is equal to the string N, then the numeric variable 
A is set to zero.) 


2.2.4 Statementt—ON-GOTO 


Transfers (branches) program execution to a specified statement num- 
ber based on the rounded value of a variable or numerical relationship. 


ON X GOTO 100,300,600 


(Transfer to statement 100 will occur if the value of X is 1; transfer 
to statement 300 will occur if this value is 2; transfer to statement 
600 will occur if this value is 3. If X is 0 or greater than 3 in the 
example above, execution continues with the first statement following 
the ON-GOTO.) 

This example of the ON-GOTO is equivalent to the following three 
IF-THEN statements: 


IF x = 1 THEN 100 
IF Kk = 2 THEN 300 
IF kK = 3 THEN 600 


By using the ON-GOTO statement, the same instructions can be given 
to the system by just one statement: 


ON K GOTO 100+300,600 


2.3 Some Very BASIC Functions 


Functions in BASIC are essentially mathematical routines that either 
come with the computer system (as a library of routines or functions) 
or may be defined by the user. Once a function has been defined, it 
may be used over and over again without the bother of writing out 
the entire routine. 

Two of the most common library functions that are used in instruc- 
tional computing applications are RND(O) and INT. When executed, 
the RND(0) function automatically gives some random numeric value 
between 0.0 and 0.999999999. The INT function reduces any number 
with a decimal fraction (called a real number) to a whole number 
(called an integer). 

By using a combination of these functions in BASIC statements, it 
is possible to generate random numbers within any range desired. 
This may be used to generate different values for questions containing 
numbers, randomly selecting questions by number from a “‘bank”’ of 
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questions, randomly branching to specified line numbers using ON- 
GOTO statements, and so on. The following illustration shows how 
this combination may be used to generate numbers in the range of 
1—10, inclusive. 

Suppose a BASIC statement looked like this: 


x = INT(1O * RND(O) + 1) 


and suppose RND(0) comes up with a random value of 0.58. BASIC 
is set up so that numerical operations enclosed in parentheses are 
performed first. Thus, the steps the system follows in computing the 
value of X would be: 


1. 10* 0.58 = 5.8 
2.5.8 + 1 = 68 
3. INT of 6.8 = 6 


Thus, X will have a value of 6 in this example. What would be the 
value of X if RND(O) = 0.999999999? What would be the value of X 
if RND(0) = 0.01? What is the range of random numbers that could 
result from the statement: 


¥ = INT((100 * RND(O) + 1) * 10) / 10 


What statement would generate random numbers in the range of 1.00 
to 100.00, inclusive? (Hint: Note the two decimal places.) How is an 
integer value changed to a real value containing two decimal places? 
Answer: By dividing the integer by 100.0. What statement would pro- 
duce random numbers in the range of 5—95, inclusive? 

A general formula may be derived that will give any desired range 
of positive random numbers: 


N = INT((H - L + 1) * RND(O) + L) 


where N is the random number generated and H and Lare the highest 
and lowest numbers, respectively, in the desired range. For example, 
a range of random numbers is desired between 100 and 25. 


Highest number = 100 
Lowest number = 25 
100 — 25+ 1 = 76 


The statement to generate this range of random numbers is: 


N = INT(76 * RND(O) + 25) 


2.4 Modification of Existing Programs 


In Chapter 1, Problem 5 asked the reader to modify PROGRAM I to 
output (PRINT) the number of heartbeats equivalent to a user's age 
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in years, assuming there were 72 beats per minute. To do this, it is 
necessary to: 


1. Retrieve PROGRAM 1 from the disk 
2. Make the modifications 
3. Save the modified version of PROGRAM 1 as PROGRAM 2. 


[By saving the modified program as PROGRAM 2 (SAVE “PROGRAM 
2”, 8) both the old version (PROGRAM 1) and the new version (PRO- 
GRAM 2) are on the disk. If only the new version is wanted, the same 
name (PROGRAM 1, in this case) should be used (SAVE “@0:PROGRAM 
1°’,8).] 


2.4.1 PROGRAM 2: Adding Heartbeats 


Recall that PROGRAM 1 was created by first typing NEW to erase 
any program in memory and then entering each line, statement by 
statement. The program was SAVEd; then RUN was entered to test 
it. Once a program has been SAVEd, it may be retrieved for use or 
modifications by the command 


LOAD "<name>" +8 
(where <name> is the name of the program) 


If any changes are made that are to be permanent in the program, the 
command SAVE ‘“‘@0:<name>”’,8 must be used. 
In summary, we have the following commands: 


Command Example _ Action 

NEW NEW Clears memory of 
statements 

RUN RUN Executes statements in 
memory 

LOAD “<name>’’,8 LOAD “PROGRAM 1”,8 LOADs the program 
‘“<name>"’ from the disk to 
memory 

LIST LIST LISTs the entire program 

LIST nn ' LIST 10 LISTs line nn 

LIST nn—mm LIST 10-100 LISTs lines nn—mm, 
inclusive 

SAVE “‘<name>’’,8 SAVE “PROGRAM 1’’,8 SAVEs a NEW program in 
memory on the disk as 
<name> 


SAVE “@0:<name>’’,8 SAVE “@0:PROGRAM 1” Replaces old version of PRO- 
GRAM 1 with new version 


a ee 
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Note: A “shorthand” method to automatically LOAD and RUN a pro- 
gram from disk is: 


LOA 


D "<name?"»s8: (simultaneously press SHIFT and RUN/STOP 


keys) 
RUN from disk and refer to listing and run of PROGRAM 2. 


PROGRAM 2 . 
) 

20 

30 

40 

o0) 

60 

70 


80 

90 

100 
101 
102 
103 
104 
103 


107 
108 


109 
110 
120 


RUN 
HEL 
THE 


HOW 


PROGRAM 1 is first LOADed and then LISTed. Statements 101-109 are entered. 
PRINT “HELLO. WHAT’G YOUR FIRST NAME" 


INPUT N& 

PRINT "HOWDY: "“ N$ 

PRINT 

PRINT "TELL ME. ». «WHAT IS YOUR AGE IN YEARS"; 
INPUT A 


D= A * 365,25 


Note that statement 70 is reentered to reflect a more accurate value for the number 
of days per year (365.25 versus 365). 


PRINT 

PRINT "WELL» “ N# "» YOU HAYE BEEN BREATHING" 
PRINT "FOR AT LEAST " D " DAYS!" 

REM ss222s5255525 


REM sssssSssss5222 

PRINT 

H =D * 24 * 60 * 72 

Statement 105 converts the age in days, D, to heartbeats, H, since there are 24 
hours per day, 60 minutes per hour, and 72 heartbeats per minute. 

PRINT "AND THAT‘’S A LIFETIME OF" 

PRINT H "TOTAL HEARTBEATS! " 


Statements 107 and 108 display the value of the variable H, along with 
appropriate text. 

PRINT 

PRINT »"BYE-BYE+s " N& 

END 

The program is then RUN. 


LO. WHAT’S YOUR FIRST NAME 
RBIE 


DY» HERBIE 


TELL ME. . «WHAT IS YOUR AGE IN YEARS?46 


WELL» HERBIE» YOU HAVE BEEN BREATHING 
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FOR AT LEAST 16801.5 DAYS! 


AND THAT’S A LIFETIME OF 
1,74197952E+09 TOTAL HEARTBEATS! 
BYE-BYE, HERBIE 


The program is SAVEd as PROGRAM 2. 
SAVE "PROGRAM 2" 48 


Note: In the RUN of the program, the value of H is expressed as 1.74197952E +09. 
This is the method in which the system displays a value of 1,741,979,520. 

It is also the system’s way of expressing scientific notation; that is, 1.74197952 x 10°. 
This amounts to one billion, seven hundred forty one million, nine hundred 

seventy nine thousand, five hundred and twenty heartbeats! Though easily broken, 

‘tis still a powerful muscle! 


2.2 Incorporating The New Statements 


The content design of any BASIC program is at the discretion of its 
author (programmer). The program can be as simple or as complex 
as the author desires. For example, BASIC may be used in trivial 
Fahrenheit to Celsius temperature conversions or in sophisticated 
modeling of population dynamics. The point is that a program does 
only what an author has designed it to do—nothing more or less. 
However, for any program, regardless of its simplicity or complexity, 
the author must first outline the design and “flow” of the program. 
On that note, the following program (PROGRAM 3) is designed only 
to illustrate a use of the statements discussed in this unit. 


2.7.1 PROGRAM 3: Appropriate Responses 


The program will ask a question and give only one chance for a correct 
answer. ‘Appropriate’ responses will be made for either a correct or 
incorrect answer. The program will then ask a final question related 
to age. The user will be informed if the answer is too low or too high. 
For answers that are too high, an additional comment will be ran- 
domly selected from three choices. The question will be repeated until 
the correct answer is given. 

The previous statements outline what the program is designed to 
do. The BASIC statements needed to accomplish this are shown in the 
program listing. (Now, try to relax when you see the ‘‘long”’ listing of 
the program. Think about what each statement instructs the system 
to do and mentally follow its execution.) 

RUN from disk and refer to the listing and run of PROGRAM 3. 
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PROGRAM 3 10 REM PROGRAM 3 
20 REM.Sasss2seesS==5>5 
30 REM ASK SOME QUESTION 
40 REM GET AN ANSWER AND 
20 REM CHECK FOR ACCURACY 
G0 REM ssssssssssese== 
70 PRINT "WHAT STATE FOLLOWS ALASKA" 


Statements 70 and 80 (the first executed statements) print out the question. 


980 PRINT "IN TOTAL LAND AREA"S 
80 INPUT R$ 


Statement 90 displays a question mark (note where it is displayed), waits for 
input, and stores it in the string variable R$. 


100 IF R$ = "TEXAS" THEN 130 

110 PRINT »"NOPE+s IT’S TEXAS!" 

120 GOTO 140 

130 PRINT TAB( 3) "YEEE-HAAA! YOUR ANSWER I6 CORRECT!" 


(Note: From now on, reference to statements will sometimes be made by number 
only. That is, statement 100, for example, will simply be referred to as 100.) 100 
checks for the value of R$ to be equal to TEXAS. If it is, transfer to 130 occurs. If 
not, 110 is executed. Then 120 causes transfer to 140, skipping 130, the response 
for the correct answer. 


140 PRINT 
140 prints a blank line. 
SO: REM -SSssssesceosseoce 


160 REM ASK ANOTHER QUESTION 

170 REM AND CHECK FOR HIGH OR 

180 REM LOW ANSWER INPUT 

60. REM -S2Sssseese-—s-=-= 

200 PRINT "WHAT WAS THE PERPETUAL AGE" 
210 PRINT "OF THE LATE JACK BENNY"; 


200 and 210 print the next question. 
220 INPUT R 
220 displays a question mark, waits for input from the terminal, and stores it in 
variable R. 
230 IF R < 39 THEN 290 


230 checks for the value of R to be less than 39. If it is, transfer to 290 occurs. If 
not, execution continues to 240, where R is checked for a value greater than 39. If 
it is, transfer is to 320. If not, 260 and 270 are executed. (Statements 230-270 
essentially say that if R is not greater than 39 nor less than 39, then it must be 
equal to 39.) 


240 IF R } 39 THEN 320 
250 REM ===THEN INPUT EQUALS 39=== 


260 PRINT 
°770 PRINT TAB(3)"DIDN’T LOOK IT..." TAB(25)"DID HE???" 
290 GOTO 490 


280 PRINT +"TOO LOW..." 
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290 (from 230, if it were a true statement) tells the user that the answer was too 
low, and 310 returns to the question (140). 


300 REM ===REPEAT THE QUESTION=== 
310 GOTO 140 
320 PRINT »"TOO HIGH..." 


320 (from 240, if it were a true statement) tells the user that the answer was too 
high. Then 380 gives a random value for X between 3 and 1, inclusive. 


330 REM BEsosscssssssss 

340 REM GET A RANDOM COMMENT FOR 

350 REM ANY ANSWER THAT IS HIGH 

350 REM THEN REPEAT THE QUESTION 

370 REM ss2s2sss222222222 

380 KX = INT (3 * RND (0) + 1) 

390 ON K GOTO 400,420,440 
390 transfers execution to 400 if X = 1; 420 if X = 2; or 440 if X = 3. These 
statements print an additional ‘‘comment”’ and return the execution to 140 (by 
410, 430, or 450). 

400 PRINT "NOW THAT IS OLD!" 

410 GOTO 140 

420 PRINT "ARE YOU TRYING TO BE CRUEL?" 

430 GOTO 140 

440 PRINT "HAVE YOU NO SYMPATHY?" 

430 GOTO 140 

460 REM sss2ss2222222222 

470 REM END THE PROGRAM 

480 REM ses2ssss22s2see22 

490 PRINT 

900 PRINT 

O10 PRINT »"BYE-BYE» FRIENDS. . ." 

020 END 


If R is not less than or greater than 39 (statements 230-270), 280 transfers 
execution to 490, which prints a blank line, as does 500. A farewell is printed by 
510 and the program ends at 520. 


RUN 

WHAT STATE FOLLOWS ALASKA 

IN TOTAL LAND AREA?CALIFORNIA 
NOPE, IT’S TEXAS 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?33 
TOO LOW. « . 


WHAT WAS THE PERPETUAL AGE 

OF THE LATE JACK BENNY?43 
TOO HIGH. .« . 

HAVE YOU NO SYMPATHY? 
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WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY ?42 


TOO HIGH. « « 


NOW THAT IS OLD! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY ?39 


RUN 


DIDN’T LOOK IT. «+ . DID HE??? 


BYE-BYE FRIENDS. . . 


WHAT STATE FOLLOWS ALASKA 
IN TOTAL LAND AREA?TEXAS 


YEEE-HAAA! YOUR ANSWER IS CORRECT! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY ?39 


DIDN’T LOOK IT. «. «. DID HE??? 


BYE-BYE FRIENDS. « + 


Carefully note statements 130 and 270 in the program listing. Each 
of these incorporates the PRINT TAB statement. This statement allows 
an automatic tabulation of a defined number of spaces before display 
or PRINTing occurs. 


2.6 Posers and Problems 


1. 


Zi. 


3. 


What is the difference between the variables R and R$ in PRO- 
GRAM 3? 

What would be the result if statement 390 in PROGRAM 3 read 
ON X GOTO 440,400,420? 

Modify statements 400, 420, and 440 in PROGRAM 3 to give com- 
ments of your choosing. 


. What should be done to PROGRAM 3 so that it would ask for your 


age instead of Jack Benny's? 


. What should be done to PROGRAM 3 in order to select a random 


comment from five choices instead of three? 


. What changes should be made to PROGRAM 3 in order to ask for 


the third largest state by land area instead of the second? 


. How should PROGRAM 3 be modified to ask for the user's first 


name at the start of the program and then refer to the user by 
name when ‘‘BYE-BYE...’’ is executed in statement 510? 
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*11. 


*12. 


*13. 


. Add some REM statement to PROGRAM 1 so that the variables 


are made clearer to someone looking at the listing of the pro- 
gram for the first time. 


. Write a statement that will randomly give a value for variable 


X that is between 200 and 50, inclusive. 


. What is the range of numbers that could randomly be generated 


by the statement: 
K = INT(25 * RND(O) + 5) 


Write a program that asks for the user’s height in inches and 
then prints “TALL” if the user is over six feet, “SHORT” if under 
five feet, or “AVERAGE” if between five and six feet, inclusive. 
Write a program that inputs the lengths of the sides of a triangle 
as variables A, B, and C (largest side last) and determines if it is 
a right triangle. (Hint: For right triangles,C f 2 = A 7} 2 + 
B } 2. The “up arrow” (1) is the system’s way to ‘‘raise to the 
power of.” 

Write a program that inputs a number and prints ‘‘THREE” if 
itis a 3, “SIX” if it is a 6, “NINE” if it is a 9, or “NEITHER 3, 
6, nor 9” if it is not equal to either 3, 6, or 9. 
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Take a Ride on the Loop-D-Loop 


“Don't put off for tomor- 
row what you can do 
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today, because if you 

enjoy it today you can do 

it again tomorrow. ” 
James A. Michener 


Think About This 

(for Fun) 

What is the exact opposite 
of not in? 


a 
Think About This — 
(Seriously) 

Is the use of computers in 
instruction just another 
“educational fad’’? 


3.1 Objectives 


For the successful completion of this chapter, you should be able to: 


1. Define and give at least one example of each of these BASIC state- 
ments: PRINT “CLR/HOME key”, DATA-READ, RESTORE, and 
FOR-NEXT (Sections 3.2.1—3.2.4). 

2. Define the purpose of and give at least one example of “multiple 
statements per line’ (Section 3.2.2). 

3. Enter and RUN each of the BASIC programs used as statement 
examples in this chapter. 

4. Design, enter and RUN a BASIC program that contains the state- 
ments discussed in Chapters 1-3. 


3.2 BASIC Statements for This Chapter 


Purpose 


Example: 


Example: 


IAuURWN = 


3.2.1 Statement—PRINT “CLR/HOME Key” 


PRINT “CLR/HOME key” CLearS (erases) all display and places the 
cursor in the upper left corner of the monitor screen. This use is par- 
ticularly appropriate in instructional computing since it allows infor- 
mation, examples, questions, and so on, to be displayed in a frame- 
by-frame fashion. Note: The CLR/HOME is a key on the upper right 
portion of the keyboard. It is used in a program as a statement by: 


. Typing the word PRINT 

- Holding down the SHIFT key 
. Pressing the double quote (’’) 
. Pressing the CLR/HOME key 

. Pressing the double quote (’’) 
. Releasing the SHIFT key 

. Pressing the RETURN key 


Note: A shaded “‘heart’’ will appear enclosed in the quotation marks. 
PRINT "Q" | 

10 PRINT "QO" : PRINT : PRINT "Hello!" 

In this example, three ‘‘actions”’ are executed: 


1. The screen is erased and the cursor positioned in the upper left 
corner (PRINT “CLR/HOME key’’). 

2. One line is skipped (PRINT) 

3. “Hello!” is displayed on the next line (PRINT ‘‘Hello!”’). 


CO OO > ee 
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Purpose 


Example: 


This example introduces another shorthand method in BASIC: the 
use of multiple statements per line. In the example shown, three sepa- 
rate BASIC statements are combined on one line. Note that the colon 
is used as a ‘“‘delimeter,” or separator, for each statement. Use of 
multiple statements per line makes more efficient use of the memory 
of the microcomputer system. However, it has the disadvantage of 
making the LISTing of the program more difficult to read in terms of 
its design and flow. Therefore, the program examples in this book will 
make minimum use of multiple statements on one line. However, 
remember that as you become more experienced, this is a handy 
shorthand method. (Also remember that the total length of a multiple- 
statement line must not exceed 80 characters.) 

Enter and RUN the following example: 


10 PRINT "QO" + PRINT : ?e “Enter your name" 
720 PRINT TAB(15)5 : INPUT N$ 
30 PRINTs = ? "His "NS"!" 


[Could all of these statements (10-30) be combined on one line? ] 


3.2.2 Statement Pain—DATA-READ 


DATA allows information (numeric or string) to be stored in a pro- 
gram for use at various stages throughout its execution. The pieces of 
information are generally referred to as data elements, with each ele- 
ment separated (delimited) by a comma. READ assigns the defined 
value of a data element to a specified variable and “moves” a data 
‘marker’ or “pointer” to the next data element. The data type (numeric 
or string) must match the variable type (numeric or string). For exam- 
ple, ‘‘ABC”’ cannot be assigned to a numeric variable! 

One additional important note should be made in regard to the 
elements in the DATA statements: Never place a comma at the end of 
the DATA statement. The system may take the space character fol- 
lowing the comma as the next data element! 


10 PRINT "Q" 

20 DATA "Help! I’m "+459" and sinking fast!" 
30 READ P1$ 

40 PRINT Pils 

20 READ A 

60 PRINT A 


70 READ P2 

B80 PRINT P2% 

90 PRINT : INPUT "Please press the "RETURN" Key" 52% 
100 PRINT : PRINT 

110 PRINT P1i$sA;P2% 
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Example: 


Purpose 


Example: 


What caused the display to change from vertical to horizontal? Did 
the values of the variables change from one display to the next? After 
entering and RUNning this example, delete lines 50 and 70. Retype 
line 30 as 


3O READ P1i$sAsP2% 


then RUN the program again. Why is there no difference in the display? 

Note that this example also demonstrates one method to “hold” the 
screen display for an indefinite period until the RETURN key is pressed. 
Also note that spaces are included within the quotation marks of the 
string DATA elements to prevent close packing when the variable 
values are PRINTed. 


10 PRINT "QO" : X = 06 

20 DATA 10515 

30 READ N 

40 K = K +N 

20 PRINT "The value of N is "N TAB(30)"The value of X ig "¥ 
60 READ N 

70 K = K +N 

80 PRINT "The value of N is "N TAB(30)"The value of X is "¥ 


Why did the values of variables N and X change? Note that variable 
X is, in effect, a cumulative total of the values assigned to variable N. 
(After mentally tracing the program execution, enter and RUN the 
above example to check your mental interpretations.) 


3.2.3 STATEMENT—RESTORE 


Moves the data pointer to the first data element in the first DATA 
statement. 


10 PRINT "QO" : X = 9 

20 DATA "I’m a “s"Prisoner of "s"lovel" 
30 READ A#,BS;C% 

40 PRINT+> A$3SBS5C% 

00 K = K + 1 

60 PRINT "The value of X is "X 

70 IF X = 2 THEN 100 

90 GOTO 30 

100 PRINT : PRINT "Sigh 44." 


— 


— 


Enter and RUN the above program and note what happens. Add 
the statement 80 RESTORE and RUN again. Note the results. 

What is the position of the data pointer after statement 30 has been 
executed but before the RESTORE statement is added? What caused 
the error message in the first RUN? What caused the program to stop 


oo 
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Purpose 


Examples: 


execution after the statement 80 RESTORE was added? What would 
the program do if statement 50 were deleted (after 80 RESTORE was 
included in the program)? Think this through before RUNning; other- 
wise, remember that depressing the RUN/STOP and RESTORE keys 
simultaneously will halt the execution of a “runaway” program! 
Note: On many BASIC systems, statements such as 10 X = 0 (as in 
the programs above, for example) are not needed because all variables 
are automatically “initialized” (set) to zero. However, it is good pro- 
gramming practice to initialize variables to zero in any program. 


3.2.4 Statement Pain—FOR-NEXT 


Defines the number of times (loops) a series of consecutive BASIC 
statements are to be repeated. FOR defines the variable used as a 
counter for the repeats and the lower and upper limits of the count. 
NEXT increases the variable count by one (or the defined STEP size) 
and checks to see if the upper limit of the FOR is exceeded. If not, 
execution is transferred to the statement immediately following the 
FOR statement. If the upper limit is exceeded, execution is transferred 
to the statement immediately following the NEXT statement. 

The variable names in the loop defined by a FOR-NEXT must be 
identical. Note that the start and/or limit of the loop may be defined 
by variable names, as in FOR X = Y TO Z. 

Also note that loops may be defined in decreasing order 


FOR I = 10 TO 1 STEP -1 


ef 


NEAT I 


In this example, the counter begins at 10 and decreases to 1 in incre- 
ments (steps) of —1. 


10 INPUT "Enter your first name" sN$% 
20 FOR C = 1 TO 20 


30 PRINT "QO" : PRINT TAB(C)s 
4o PRINT N$ 
390 NEXT C 


For some interesting effects, replace statements 20 and 30 above 
with combinations of the following: 


20 FOR C = 1 TO 30 STEP 95 
30 PRINT TAB(C) 5 


Also, experiment with different STEP increments. 


10 PRINT "Let’s get rolling ». ." 
“0 FOR X = 2 TO 12 STEP 2 
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30 PRINT "Here’s "X" and its cubes" 


40 PRINT K +X#¥X#X 

20 NEXT X 

60 PRINT»"That’s all , . 4" 
10 A = 10 

29 B = -10 

30 FOR C = A TO B STEP -? 
40 PRINT C5" "5 

20 NEXT C 


GO PRINT “And we counted backwards by twos, .." 


(Mentally trace the execution, and then enter and RUN each program.) 
Note: Indentation is for clarity. 


3.3 Incorporating the New Statements 


With the addition of the statements in this chapter, a BASIC program 
may be designed that provides more of a utility than the earlier pro- 
grams. One of the many uses of computer programs involves search- 
ing a list of information (commonly called a data base) for key ele- 
ments that may be specified by a user. For example, data bases may 
be searched for financial accounts that are overdue by 30, 60, or 90 
days; address lists may be searched for ZIP codes; employee rolls may 
be searched for persons who have special deductions; and so on. The 
following program illustrates one search technique. 


3.3.1 PROGRAM 4: Searching for a Rance of Values 


This program contains a list of DATA elements representing pairs of 
hypothetical names and scores. This list is to be searched for scores 
that fall within a specified maximum and minimum range. A list of 
names and scores that are within this range is printed. Following this, 
the user is given an option to do another search. 

What will this require as the program is mentally designed? In 
outline form, there must be at least: 


1. Prompts to get the maximum and minimum scores (PRINTS). 

2. Entry of these scores (INPUTs). 

3. A loop (FOR) to: 
a. READ the DATA. 
b. Check (IF-THEN) to see if the current score read is the last data 
element in the list and, if not, to see if it is in the maximum-min- 
imum range. 


a 
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PROGRAM 4 


c. Display (PRINT) the name and score if in the range. 
d. Continue the search (NEXT). 


Gt 


. A prompt for another search option (PRINT and INPUT). 
. Movement of the data pointer back to the first data element if 


another search is to be done (RESTORE), followed by repetition 
of the total process (GOTO). 

6. A list of names and scores in the program (DATA). 

7. Anend to the program (PRINT and END). 


RUN from disk and refer to the listing and run of PROGRAM 4. 


10 
20 
30 
4 
me) 
SCO 
SQ 
70 
BO 
90 
100 
110 
120 
130 
140 
150 
150 
170 
180 
190 


200 


210 


220 


230 
240) 
200 
250 


REM KEY SEARCH OF 30 OR LESS DATA ELEMENT PAIR, 

REM PROGRAM SEARCHES FOR A MINIMUM-MAXIMUM RANGE OF 
RES. 

REM DATA ELEMENTS ARE IN SEQUENCE: NAME,SCORE, 

REM LAST SEQUENCE OF DATA ELEMENTS [5 "kK" 40 

REM ssssaseescescsss 

REM YARTABLE DICTIONARY 

REM se2sseeasaes 

REM N$& - HYPOTHETICAL NAME 

REM S - HYPOTHETICAL SCORE 

REM Mi - MAXIMUM SCORE 

REM M2 - MINIMUM SCORE 

REM I - LOOP COUNTER 

REM F - COUNTER FOR THE NUMBER OF MATCHES FOUND 
CEM: Seaeesese => | 

REM SET THE COUNTER TO ZERO» CLEAR 

REM THE SCREEN» AND GET THE RANGE SOUGHT. 

REM se S32 seseSs= 

Statement 220 clears the screen and places the cursor at the upper left-hand corner 
of the screen. 


F=Q 
210 initializes variable F to zero. 
PRINT "Q" 


Statement 200 clears the screen and places the cursor at the upper left-hand corner 
of the screen. 


PRINT "MAXIMUM SCORE"; 
INPUT M1 
PRINT "MINIMUM SCORE" s 
INPUT Me 


Statements 230-260 obtain the maximum and minimum range of scores desired 
by the user. 
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270 PRINT "NAMES WITH SCORES IN THE RANGE:" M2 "-" Mi 
280 PRINT "NAME" »"SCORE" 


PRINT "----","----L " 
Statements 270-290 PRINT a heading for the list. 

300 REM sxs2x2s2222e2ee22 

310 REM DO THE SEARCH LOOP 

O20 REM sxsss2222s2222e 


330 FOR I = 1 TO 50 
Statements 330-420 define a FOR-NEXT loop. 


Statement 330 assigns variable I as a counter for the loop, sets its initial value to 
1, and defines its upper limit as 50. (In other words, the loop will be performed a 
maximum of 50 times.) 


340 READ N#+S 


Statement 340 READs a DATA element pair from the data list beginning at 
statement 560 and assigns the values read to N$ and S, respectively. (The first 
time READ is executed, N$ would have a value of SUE, S would be equal to 67,. 
and the data pointer would be moved to BOB in preparation for execution of the 
next READ statement.) 


390 REM ===END OF DATA LIST?=== 

360 IF N$ = "K" THEN 460 | 
Statement 360 checks the value of N$§. If this value is equal to the character X, 
execution ts transferred to 460. (X has been arbitrarily defined as the last name in 
the list of data. This gives the program a way of identifying when the last data 
element pair has been read.) 

370 REM ===IS THE SCORE "S" QUTSIDE THE RANGE?=== 

380 IF S > Mi or S&S << M2 THEN 4?0 
Statement 380 checks the value of S, the S just READ, to see if it is outside the 
maximum-minimum range (greater than M1 or less than M2). If so, execution is 


transferred to 420, where the loop is repeated if the value of I + 1 does not exceed 
the defined upper limit of 50. 


390 PRINT N#+S 


If the value of S falls within the range (S is neither greater than M1 nor less than 
M2), statement 390 PRINTs the current value of N§ and S. 


400 REM ===COUNT THE MATCHES FOUND=== 
410 F =F +1 


Statement 410 increases the counter F by one for each match that is found. 
420 NEXT I 


Statement 420 repeats the loop if it has not yet occurred 50 times. 


430 REM sssss2s2s22s2e25 
440 REM END OF CURRENT SEARCH 
450 REM ssss2ss2222s225 
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450 PRINT "THIS SEARCH FOUND " F " MATCH(ES)." 
Statement 460 may be executed from either of two sources: 
1. From statement 360, if the last data element has been READ. (Note: N$ would have « 
value of X.) 


2. From statement 420, if the NEXT I (the value of I + 1) exceeds the limit 
defined by the FOR in statement 330. 


470 REM ===GIVE OPTION TO DO ANOTHER SEARCH=== 
490 PRINT "DO YOU WISH ANOTHER SEARCH (Y OR N)"5 
490 INPUT 2% 

S00 IF 2% <3"Y" THEN 1000 


Statements 480-500 give the option for another search. If the INPUT value for 
variable Z§ is not equal to Y (for Yes), transfer is to 1000, and the program ENDs. 


S10 RESTORE | 
Otherwise, statement 510 RESTOREs the data pointer to the first data element. 
920 GOTO 210 


Statement 520 then transfers execution back to 210 so that another search may 


¢. 


take place. 
S30 REM sex22ssssss5255 
S540 REM DATA LIST 
S50 REM ssss=ssss25525 


560 DATA "SUE"»G7+"BOB"sS5s"JACK" +98 s"MARY" +88 "STAN" +50 +"ROB" 47 
570 DATA "LETA"+77+"ALEX" +66 +"SUSAN" 585 +"MARTA" s99+"FRAN" +70 

580 DATA "BOBBIE"+100+"CHARLES" »64s"BILLY" s56+"MAGGIE" +86 

580 DATA "DONNA" +91 s"YANCY"+77+"TRACY" +99 s"KAREN" 9100 +"BUCK" 590 
600 REM ===ROOM FOR MORE DATA=== 


999 DATA eA" FO 
1000 PRINT “#** SEARCH COMPLETED #**" 
1010 END 


MAXIMUM SCORE?TI00 
MINIMUM SCORE?9O 
NAMES WITH SCORES IN THE RANGE: 90-100 


NAME SCORE 
JACK 98 
MARY 99 
MARIA 99 
BOBBIE 100 
DONNA O14 
KAREN 100 
BUCK 90) 


THIS SEARCH FOUND 7 MATCH(ES). 

DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
MAXIMUM SCORE?G6O 

MINIMUM SCORE?S0 
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NAMES WITH SCORES IN THE RANGE: 50-60 


NAME SCORE 
BOB 55 
STAN 50 


THIS SEARCH FOUND 2 MATCH(ES), 

DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
MAXIMUM SCORE?77 

MINIMUM SCORE?77 

NAMES WITH SCORES IN THE RANGE: 77-77 


NAME SCORE 
LETA 77 
YANCY 77 


THIS SEARCH FOUND 2 MATCH(ES), 
DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
MAXIMUM SCORE?49 

MINIMUM SCORE?O 

NAMES WITH SCORES IN THE RANGE: 0-49 
NAME SCORE 


THIS SEARCH FOUND 0 MATCH(ES), 
DO YOU WISH ANOTHER SEARCH (Y OR N)?N 
*#*¥* SEARCH COMPLETED **+% 


3.3.2 Additional Comments on PROGRAM 4 


DATA statements may be included anywhere in a BASIC program. 
They are not executed as, for example, a PRINT or INPUT statement 
would be. Their only use is to contain data (information) that is to be 
READ and assigned to variables. The DATA statements in PROGRAM 
4 are placed near the end of the program so that additional DATA 
Statements may be added if desired. The last data element pair, ’X’ 
and 0, is given the highest number possible for a DATA statement (999 
in this case). Thus, additional DATA statements could be inserted 
betWeen statements 600-999 if there were a need to add more data. 

In RUNning the program, how could the DATA in PROGRAM 4 be 
searched for only one user-specified score, listing all the names with 
that score? 


3.4 A Time-Saving Technioue 


There may be times when a user wishes to SAVE both the “old” and 
“new versions of a program. The ‘‘new”’ (modified) version of a pro- 
gram may be SAVEd by simply giving it a new (unique) name when 
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the SAVE command is issued. We did this earlier in Chapter 2 when 
PROGRAM 1 was modified (with the heartbeats) and SAVEd as PRO- 
GRAM 2. 

To illustrate this, PROGRAM 5 will be created and SAVEd. Then it 
will be modified and SAVEd as PROGRAM SA. This means that both 
the old (PROGRAM 5) and the new (PROGRAM 5A) programs will be 
available for future use. 


3.4.1 PROGRAM 5: Subtraction Drill 


Arbitrarily, this new program will be a drill on subtraction practice. 
Then it will be modified to be a drill on addition practice. 
Run from disk and refer to the listing and run of PROGRAM 5. 


PROGRAM 7% 10 REM PROGRAM 5 DESCRIPTION 

70 REM sssssesss2eses25 

30 REM THIS PROGRAM PROVIDES DRILL ON SUBTRACTION 

40 REM USING RANDOM NUMBER GENERATORS. IT ALSO 

20 REM INTRODUCES THE USE OF MULTIPLE STATEMENTS 

GO REM ON ONE LINE+s PAUSING,s AND "FRAMING" TECHNIQUES. 

70 REM BY SIMPLE MODIFICATION, THE PROGRAM MAY BE 

80 REM CONVERTED TO ADDITION+ MULTIPLICATION OR DIVISION. 

90 REM ===VARIABLE DICTIONARY=== 

100 REM A - THE DIFFERENCE BETWEEN 2 RANDOM NUMBERS 

110 REM C - A COUNTER FOR THE NUMBER OF CORRECT ANSWERS 

120 REM I - A COUNTER USED TO "HOLD" THE SCREEN DISPLAY 

130 REM Ni - A RANDOM NUMBER, 1-12, INCLUSIVE 

140 REM N2 - ANOTHER RANDOM NUMBER» 1-125 INCLUSIVE 

i50 REM P - THE NUMBER OF PROBLEMS SELECTED BY THE USER (3-15) 

1680 REM 9 - A COUNTER FOR THE QUESTION LOOP 

170 REM R - THE USER’S RESPONSE TO A QUESTION 

i180 REM 2% - A "DUMMY" INPUT TO HOLD SCREEN DISPLAY 
INDEFINITELY 

190 REM: Ssessseeooseses 

Z00 REM CLEAR SCREEN; CENTER+ DISPLAY A TITLE 

210 REM FOR ABOUT 3 SECONDS; THEN CLEAR SCREEN AGAIN 

7?0 REM sasssssssss555 
Statements 10—220 give a brief description of the program and variables used. 


230 PRINT "Q" : FOR I = 1 TO tio: PRINT : NEAT I 
240 PRINT TAB(S)"5 UB TRACTION DRILL" 


Statements 230-240 clear the screen and show the title to be displayed. 


Zo0 REM NOTE MULTIPLE STATEMENTS PER LINE IN 230 AND 260 
260 FOR I = 1 TO 3000 : NEAT I 


Statement 260 uses multiple statements per line (FOR-NEXT) to ‘‘count’’ to 3000. 
In effect, this gives a pause of about three seconds before the screen is erased by 
statement 320. 
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270 
280 
290 
300 
310 
320 
330 
340 


350 
380 


370) 
380 
390 
400 


410 
420 
430 
440) 
430 
480 
470 
4680 
490 


00 
O10 


REM sxssss22s22222e2 

REM LET THE USER SELECT THE NUMBER OF PROBLEMS 

REM WITHIN ARBITRARY LIMITS OF AT LEAST 3 

REM BUT NO MORE THAN 15, THIS DEFINES THE QUESTION LOOP. 
REM sxssss22es22eee5 

PRINT "QO" : FOR I = 1 TO 11 : PRINT : NEXT I 

PRINT "HOW MANY PROBLEMS DO YOU WANT (3-15)"3 

INPUT P 


Statements 330-340 allow a user to INPUT the number of problems to practice. 
Arbitrarily, the limit has been defined as at least 3, but no more than 15 problems. 


REM ===CHECK TO BE WITHIN RANGE=== 
IF P «< 3 OR P + 15 THEN 320 


Statement 360 checks to see if the value of P is within the defined range of 
problems possible. 


REM sssss22eees2e2se 


REM ss2eesse22es2ee2 
FOR 9 = 1 TO P 
Statements 400-710 define the “question loop.” 


PRINT "QO" : FOR I = 1 TO 11 : PRINT : NEXT I 

REM ===GENERATE THE TWO RANDOM NUMBERS=== 

Ni = INT(i2 * RND(O) + 1) 

N2 = INT(12 * RND(O) + 1) 

REM sssss2s22eese22 

REM ARBITRARILY» WE WANT Ni TO BE GREATER THAN 

REM N2+ SO WE‘’LL CHECK IT. 

REM ssss22sss2e2e2e5 

IF Ni «= N2 THEN 430 

Statements 420-490 generate two random numbers in the range of 1 to 12 and 
ensure that the first number is equal to or larger than the second number. 


REM ===SET "A" EQUAL TO THE ANSWER=== 

A= Ni - N2 

Statement 510 defines the correct answer to be equal to the difference between the 
two random numbers and assigns this value to variable A. 


0 REM ===PRINT OUT THE PROBLEM=== 


PRINT TAB(12) Ni "-" NZ "="3 
INPUT R 


Statements 530-540 display the problem and get INPUT for the answer. 
IF A = R THEN G90 


Statement 550 checks to see if the answer INPUT (variable R) is equal to the 
correct answer (variable A). If so, transfer is to statement 690. 


PRINT : PRINT TAB(7)"NO+ THE CORRECT ANSWER IS"3A 


DP REM seSSeseaaas=Sese 
D REM LET THE USER DETERMINE WHEN TO CONTINUE 
D REM IN THAT THE QUESTION WAS MISSED AND MIGHT 
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GOO REM NEED TO BE "STUDIED." 


B10. REM S2aSSeseeeeese- 
620 PRINT : INPUT " PRESS THE RETURN KEY TO CONTINUE" s2 
630 GOTO 710 


If the correct answer is not given, statements 560—630 display it. This is “held”’ 
on the screen until the RETURN key is pressed. Transfer is then to statement 710, 
which continues the question loop. 


G40 REM s=sssssss2e2ze55 
G50 REM FOR EVERY PROBLEM ANSWERED CORRECTLY: 
G60 REM CLEAR SCREEN; CENTER REINFORCER, HOLD ABOUT 1 SECOND: 
670 REM INCREASE CORRECT COUNTER BY i+ AND CONTINUE LOOP. 
G80 REM s=ssssssssc25e5 
690 PRINT "QO" FOR I = 1 TO ii:PRINT:NEXT I:PRINT TAB(17)"0.K.!" 
700 FOR I = 1 TO 1000 : NEXT I: C =C +1 
Statements 690-700 clear the screen, give a positive comment at the approximate 


center of the screen, hold it there for about one second, increase a “number 
correct’ counter by one, and continue the question loop. 


710 NEXT Q 

7270 REM sesseseseesanan 

730 REM THIS IS THE END OF THE QUESTION LOOP, SO LET’S 

740 REM TELL HOW MANY CORRECT ANSWERS WERE GIVEN, 

750 REM sssss2ssss5555 

760 PRINT "9" : FOR I = 1 TO i121 : PRINT : NEAT I 

770 PRINT "YOU ANSWERED" C “QUESTION(S) CORRECTLY!" 

780 END 
Statements 760-780 clear the screen and show the user the number of problems 
correctly answered before ending the program. | 


RUN 
SUBTRACTION DRILL 


HOW MANY PROBLEMS DO YOU WANT (3-15)100 
HOW MANY PROBLEMS DO YOU WANT (3-19)3 


NO» THE CORRECT ANSWER [5 23 


PRESS THE RETURN KEY TO CONTINUE 


YOU ANSWERED 2 QUESTION(S) CORRECTLY! 
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PROGRAM 3A 


3.4.2 PROGRAM 7A: Addition Drill (A Modification of 
PROGRAM 7) 


Careful examination of the listing of PROGRAM 5 shows that the 
minimum changes needed are statements 240, 510, and 530. After 
PROGRAM 5S has been LOADed from the disk, the following is entered: 


240 PRINT "ADDITION DRILL" 
O10 A = Ni + N2 

S30 PRINT TAB(12) Ni "+ " N2 "5 "5 
SAVE "PROGRAM 5A" +8 


Of course, there are other changes that could and should be made. 
The REM statements need to reflect that the program is addition drill. 
Statements 450-500 are not necessary since the first number could 
be smaller than the second, and perhaps statements 430-440 might 
be altered to give a larger range of numbers. However, the statements 
and SAVE command shown above are all that is needed to change 
the program from subtraction to addition drill. Thus, a new program, 
PROGRAM 5A, based upon another program, PROGRAM 5, has been 
created and SAVEd without the time and trouble required to com- 
pletely retype the new version. 

RUN from disk and refer to the listing of PROGRAM SA. (Note: A 
sample RUN is not included.) | 


10 REM PROGRAM SA DESCRIPTION 

20 REM ss2s22=sss22eee2 

30 REM 

40 REM THIS LISTING OF PROGRAM 5A SHOWS MORE THAN THE 

90 REM MINIMUM CHANGES MENTIONED IN THE TEXT. OTHER 

GO REM CHANGES INCLUDE DIFFERENT RANDOM NUMBERS 

70 REM (STATEMENTS 430-440) AND DELETION OF 

80 REM STATEMENTS 450-490, 

JO REM ===VARIABLE DICTIONARY=== 

100 REM A - THE DIFFERENCE BETWEEN 2? RANDOM NUMBERS 

110 REM C - A COUNTER FOR THE NUMBER OF CORRECT ANSWERS 

120 REM I - A COUNTER USED TO "HOLD" THE SCREEN DISPLAY 

130 REM Ni - A RANDOM NUMBER, 1-12+ INCLUSIVE 

140 REM N2 - ANOTHER RANDOM NUMBER, 1-125 INCLUSIVE 

1530 REM P - THE NUMBER OF PROBLEMS SELECTED BY THE USER (3-15) 

160 REM 9 - A COUNTER FOR THE QUESTION LOOP 

170 REM R - THE USER’S RESPONSE TO.A QUESTION 

180 REM 2% - A "DUMMY" INPUT TO HOLD SCREEN DISPLAY 
INDEFINITELY 

190 REM =s==ss=22ss=s22==5 

200 REM CLEAR SCREEN+ CENTERs DISPLAY A TITLE 

210 REM FOR ABOUT 3 SECONDS) THEN CLEAR SCREEN AGAIN 


A 
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eet) 
230 
240 
200 
260 
270 
280 
290 
300 
310 
320 
330 
340 
300 
360 
370 
3BO 
390 
400 
410 
420 
430 
440) 
S00 
210 
220 
230 
240 
O00 
260 
O70 
280 
290 
600 
610 
620 
630 
640 
6350 
BGO 
670 
6B0 
690 


700 
710 
720 


REM ss222ss2es2222 

PRINT "9" : FOR I = 1 TO 11 : PRINT : NEAT I 

PRINT TAB(8)"A DDITION DRILL" 

REM NOTE MULTIPLE STATEMENTS PER LINE IN 230 AND 260 
FOR I = 1 TO 3000 : NEAT I 

REM, =2sS2sessessecse 

REM LET THE USER SELECT THE NUMBER OF PROBLEMS 

REM WITHIN ARBITRARY LIMITS OF AT LEAST 3 

REM BUT NO MORE THAN 15. THIS DEFINES THE QUESTION LOOP, 
REM ss22sss22555555 

PRINT "Q" : FOR I = 1 TO 11 : PRINT =: NEAT I] 

PRINT "HOW MANY PROBLEMS DO YOU WANT (3-13)"5 

INPUT P 

REM ===CHECK TO BE WITHIN RANGE=== 

IF P «= 3 OR P ? 15 THEN 320 

REM sss2ss2s22s55525 


REM =s2222sss222552 

FOR 9 = 1 TO P | 

PRINT "QO" : FOR I = 1 TO ii : PRINT +: NEAT I 
REM ===GENERATE THE TWO RANDOM NUMBERS=== 

Ni = INT(1G #* RND(O) + 9) 

N2 = INT(1G * RND(O) + 35) 

REM ===SET "A" EQUAL TO THE ANSWER=== 


A = Ni + N2 

REM ===PRINT OUT THE PROBLEM=== 
PRINT TAB(i2) Ni "+" N2 "= "5 
INPUT R 


IF A = R THEN 690 

PRINT : PRINT TAB(7)"NO+ THE CORRECT ANSWER I5"5A 
REM s=ssSsssscxosss2 

REM LET THE USER DETERMINE WHEN TO CONTINUE 

REM IN THAT THE QUESTION WAS MISSED AND MIGHT 


REM NEED TO BE "STUDIED." 

REM sssess2es22222e2 

PRINT : INPUT " PRESS THE RETURN KEY TO CONTINUE" 32 
GOTO 710 

RE) s2ssscceesecss= 


REM FOR EVERY PROBLEM ANSWERED CORRECTLY: 

REM CLEAR SCREEN+ CENTER REINFORCER: HOLD ABOUT i SECOND: 
REM INCREASE CORRECT COUNTER BY 1+ AND CONTINUE LOOP. 

REM sessssse2ss5e20 | 

PRINT "QO" :FOR I = 1 TO 1i:PRINT:NEXT I:PRINT 
TAB(17)"O.K. 1" 

FOR I = 1 TO 1000 : NEXT I: C=C +1 

NEXT Q 

REM s=s22s2252225252 
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— 730 
740 
730 
760 
7709 
780 


REM THIS IS THE END OF THE QUESTION LOOP, SO LET’S 
REM TELL HOW MANY CORRECT ANSWERS WERE GIVEN, 


REM sss22222s2222- 

PRINT "QO" : FOR I = 1 TO ii PRINT : NEXT I 
PRINT "YOU ANSWERED" C “QUESTION(S) CORRECTLY!" 
END 


3.2 Posers and Problems 


1. Correct any errors (if, in fact, there are any) in the following three 
programs: 


10 
20) 
30 
40 


10 
20 
30 
40 
50 
60 
70 
BO 


10 
20 
30 
40 
30 
60 
70 
BO 


FOR XK = 

PRINT 
NEAT Y 
END 


1 TO 10 


Vi Vi \é 
a i 


DATA "How old is George" +45," 
READ O$sA;+C 

PRINT O$5C3 

INPUT R 

IF A$ = R THEN 70 

PRINT "No .«. , i" 

PRINT A " is correct!" 

END 


(in 1983)" 


DATA 45556 

FOR X = 1 70 3 
READ A 
PRINT+ A 

NEAT X 

READ A 

PRINT A 

END 


2. Below are some student data for a name and test score. Complete 
the program so that the name and score are printed in columnar 
form. 


10 DATA "CHUCK" s95+"MARY" +80+"PHIL" 595 +"JEANNIE" 935 
20 FOR I = 
30 


1 TO 4 
READ S$: 


2? 


3. Modify your program in Problem 2 to print the average of the 
scores after printing the list of names and scores. 
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4. Write a search program in which a list of data elements consists 
of hypothetical names, hair color, and eye color. A list is to be 
printed that shows the above information based upon a search of 
a user-specified eye color. For example, if BLUE is input in response 
to EYE COLOR?, the name, hair color, and eye color for all blue- 
eyed people would be printed. The program should also give the 
option to conduct another search. 

Note: This program may be easily completed by modifying PRO- 
GRAM 4. For example, PRINT statements describing the program 
and prompting for the eye color will have to be modified and/or 
added. The INPUT will have to be a string variable. The READ 
statement will need to READ three DATA elements. The IF-THEN 
check will have to compare the INPUT variable and the eye color 
variable just read. The PRINT statement showing a match will 
have to be written so that three variable values are displayed on 
one line. Finally, the DATA statements will have to contain three 
elements (name, hair color, and eye color). 

5. Enter and RUN the following program. Be prepared to discuss its 
flow. 


10 FOR R = 10 TO i STEP -1 


20 PRINT "QO" : PRINT : PRINT 

30° PRINT R " little rabbit(s) » » » see the tail(s)!" 
40 PRINT + 

20 FOR T = 1 TOR 

60 PRINT "* "4 

70 NEXT T 

BO PRINT 

90 PRINT : PRINT : PRINT? 

100 INPUT "Please press the "RETURN" Key. »« « "32% 
110 NEXT R 

170 PRINT "CLR/HOME Key" : PRINT : PRINT +: PRINT 


i130 PRINT “And then there were NONE » » -" 


In particular, what is the purpose of ‘STEP —1” in statement 10, 
the commas in statements 40 and 90, the semicolon in statement 
60, and the PRINT in statement 80? After RUNning the program, 
delete statements 20, 90-100, and 120. RUN the program again 
and note the results. 

6. Write a program that converts Celsius to Fahrenheit and PRINTs 
an equivalence table for every five Celsius degrees from 0 to 100, 
inclusive. Hint: F = 32 + (C * 9/5) 

7. Write a program that will PRINT the cube of the numbers 1-10, | 
inclusive. ; 

8. Modify PROGRAM 5 to present a drill on multiplication. 
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9. Modify PROGRAM 5 to present a drill on division using a range of 
numbers between 4 and 144. Use random numbers that will not 
have a remainder after division. (Note: This task may be accom- 
plished by incorporating the statement: 


490 IF Ni/N2 <> INT (N1/N2) THEN 430 


This will ensure that any quotient derived from dividing N1 by N2 
will be a whole number; that is, an integer value with no remainder.) 


a 
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Chapter Four 


DIM It! There Must Be An 
Easier Way! Array! Array! 


There Is! 


“Frustration is not hav- 
ing anyone to blame but 
yourself.”’ 

Bits and Pieces 


“Work spares us from 
three great evils: boredom, 
vice and need.”’ 

Voltaire 


eS 
Think About This 

(for Fun) 

I have two U.S. coins that 
total $0.55. One of them 
is not a nickel. What are 
the coins? 


ee 
Think About This 
(Seriously) 

Could the proliferation of 
microcomputers in the 
school and home alter the 
traditional classroom set- 
ting as we now know tt? 
If so, how? 


Ng a 
4.1 Objectives 


4.2 Arrays 


For the successful completion of this chapter, you should be able to: 


1. Define and give at least one example of a subscripted variable 
(Section 4.2.1). 

2. Define and give at least one example of botha one- and two-dimen- 
sional array (Sections 4.2.1 and 4.2.2). 

3. Define and give at least one example of each of the BASIC state- 
ments DIM and GOSUB-RETURN (Section 4.4). 

4. Give examples that indicate how commands may be incorporated 
as statements in a BASIC program (Section 4.4.4). 

5. Design, enter, and RUN a BASIC program of your own choosing 
that includes a one-dimensional array and the BASIC statements 
for this chapter. 


4.2.1 One-Dimensional Arrays 


For our purposes, a one-dimensional array is just an organized list of 
information. That information could be any string and/or numeric 
values: student names, states, chemical names, school districts, test 
scores, ages, weights, years, and so on. Recall the four names and test 
scores given in Problem 2 of Chapter 3. Using one-dimensional arrays 
in BASIC, we can easily make lists of those names and scores. 
Consider the BASIC statements needed. First, there is information 
(names and scores) that will be used; thus, there will be a need for 
DATA statements. Of course, if there is DATA, it will need to be READ. 
Also, a FOR-NEXT loop could be used to do the READing. Thus: 


10 DATA "Chuck" +"Mary"s"Phil"s"Jeannie" 
20 FOR I = 1 TO 4 

30 READ N#(T) 

40 NEXT I 


This should appear somewhat familiar, with the exception of state- 
ment 30, READ N$(I). N§(I) is an example of another type of variable. 
This type, however, uses an “internal” variable, (D), to distinguish one 
value of N$(I) from the others. Remember, the variable I is going to 
have a value that may be 1, 2, 3, or 4 (FOR I = 1 TO 4). Thus, the 
variable values in this example are: 


N$(1) = Chuck 
N$(2) = Mary 
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N$(3) = Phil 
N$(4) = Jeannie 


Or, said another way, there is a four-item list (one-dimensional array) 
of N§$(D values: 


I N&() 


1 Chuck 
2 Mary 
3. —~Phil 


4 Jeannie 


The name given to these types of variables is subscripted variables. 
The value of N$(1), pronounced ‘‘N$ sub 1,” is equal to the string 
Chuck; the value of N$(2) is equal to the string Mary, and so on. 

It is quite simple to build a series of lists using subscripted vari- 
ables. Consider: 


10 DATA "Chuck" :95e"Mary"s80s"Phil"s95+"Jeannie" 35 

20 FOR I = 1 7T0 4 

30 READ N#(1I)+,9(1) 

40 NEXT I 

If these statements were to be executed, what would be the value of 
N$(3)? Of S(4)? If the following statements were added to those above, 
what would be the result of execution? 


50 FOR I = 4 TO i GTEP -1 


BO PRINT NS$(1)+S(T) 
70 NEXT I 
BO END 


(Mentally trace the execution; then enter and RUN to check your 
mental interpretation.) 
Enter and RUN the following program: 


10 PRINT "QO" + PRINT : PRINT : PRINT» 

20 PRINT "Here’s a list of 5 names:" : PRINT 

30 FOR IT = 1 705 : READ NS(I) : PRINT NS(I) ¢ NEAT I 

40 PRINT : PRINT “Let’s randomly choose 4 sets of 2 names" 
44 INPUT "(PRESS RETURN...) "32% 2: PRINT 

S50 FOR I = 1 TO 4 : PRINT» 


GO FOR J = 1 TO 2 

70 x = INT(S *RND(O) +1) 
BO PRINT N&(A) >» 

90) NEAT J 


a SS 
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94 PRINT 

100 NEXT I 

110 PRINT : PRINT "And here’s the list in reverse" =: PRINT 
120 FOR I = 5 TO 1 STEP -i : PRINT N$(I) : NEXT I 

130 DATA "Kay" s"Buck"s"Karyn"s"Tracy" "George! 


As you can see (and will see again), one advantage of using one- 
dimensional arrays is that, once the values have been assigned to 
positions in the list, we may pick and choose items from the list at 
will. 


4.2.2 Two-Dimensional Arrays 


A one-dimensional array is nothing more than a list of data. A two- 
dimensional array is a table of data in rows and columns. 

Assume there are two test scores for each of those students above. 
A table, consisting of four rows and two columns, might look like this: 


USS 


Name Test 1 Test 2 
Chuck 95 80 
Mary 80 82 
Phil 95 93 
Jeannie 35 98 


ED 


Note: The table in this example is composed of the test scores. The 
names of the students cannot be included in the table because they 
are string variables, and the two-dimensional array is defined as a 
numeric array. In other words, variable types (string and numeric) 
cannot be mixed in an array. However, just as it is possible to define 
a two-dimensional numeric array, a two-dimensional string array may 
also be defined. Just don’t mix them! 

How could a two-dimensional array of this information be formed? 
Again, there is information (names and scores) that will be used, so 
DATA statements are appropriate. This information in statement form 
would be: | 


10 DATA "Chuck" 95480 
20 DATA "Mary" ,80,82 
30 DATA "Phil",95,93 
40 DATA "Jeannie" »35,98 


(The DATA statements above could be combined into one or two state- 
ments. However, they are listed as four separate statements for the 
sake of clarity.) 


OO 
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The difficulty is in determining how the DATA should be READ. 
Examine the sequence of information: one name, followed by two 
scores, then the next name, followed by two scores; and so on. Since 
there are four rows (names) and each must be READ, the first loop to 
be defined will be FOR I = 1 TO 4. However, before the next name is 
READ, there are two scores to be assigned (READ). So, another loop, 
FOR J = 1 TO2, needs to be defined. Thus: 


90 FOR I = 1 70 4 


60 READ N#(T) 

70 FOR J = 1 TO 2 
80 READ S(I+J) 
90 NEXT J 

100 NEXT I 


(Note: The indentation is for clarity only.) 

The variable I is READing the rows of the table and the variable J 
is READing the columns. The J loop is said to be nested within the I 
loop. Examine the table above. What is the value of S(I,J ) when I = 
1 and J = 1? When I = 3 and J = 2? The most important point to 
remember is that I and J are nothing more than numbers that define 
a row and column, respectively. 

A more productive use of two-dimensional arrays may be illustrated 
by adding the following statements to the program: 


45 PRINT "NAME" s"TESTi" »"TEST2" 

46 PRINT Me ta ee ge BF, oS ea Mage or eae ee Pics u 

GS PRINT N&S(I)» 

Bi PRINT S(TsJd)+ 

8? REM T(I) = CUMULATIVE TOTAL EACH STUDENT’S SCORE 
B84 T(I1) = TCI) + S(Ird) 

86 REM T = CUMULATIVE TOTAL OF ALL SCORES 

88 T= T + S(I+J) 

94 REM SKIP A LINE PRIOR TO PRINT OF NEXT NAME 
95 PRINT 

110 PRINT 

i20 FOR I = 1 704 

130 PRINT NS(1)5"’S AVERAGE IS "ST(I)/2 


140 NEXT I 
150 PRINT "THE CLASS AVERAGE I5 "sT/8 
160 END 


Combine ail the statements in this section into one program; then 
enter and RUN it. What is the purpose of the comma at the end of 
statements 65 and 81? Why is a blank PRINT needed in statement 
95? Examine the LIST of the complete program very carefully and 
mentally follow the execution of each statement. 


ee 
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4.3 Examples of the Use of One-Dimensional Arrays 


PROGRAM 6 
10 REM PROGRAM 6 DESCRIPTION 


20 REM 

30 REM 

40 REM 

o0 REM 

GO REM 

70 REM 

80 REM === 

J0 REM A 

100 REM A$ 


110 REM D$() 
120 REM F#() 
~ 130 REM P#() 


There are many more applications of one- and two-dimensional arrays 
in instructional computing than just building lists or tables of names 
and scores. The following two programs give examples of some of 
these uses. 


4.3.1 PROGRAM 6: Random Sentences, Questions, and 
Responses 


One use of one-dimensional arrays may be seen in Program 6. This 
program demonstrates using one-dimensional arrays in forming ran- 
dom sentences. One array will contain the subjects, another the verbs, 
and another the direct objects. Using random numbers, a subject, 
verb, and direct object will be selected from each list and printed as 
a sentence. Since each list will contain four items, a total of 64 (4 x 
4 x 4) different sentences are possible. A one-dimensional! array is 
also used to randomly select the “question” to be asked ; that is, ‘Iden- 
tify the (SUBJECT/VERB/DIRECT OBJECT).” Another one-dimen- 
sional array will contain the “positive feedback” comments given for 
a correct answer. This feedback will also be randomly selected from 
the list. Thus, the use of one-dimensional arrays provides a method 
of increasing the variety of questions, answers, and feedback in 
instructional computing programs without extensive programming. 
RUN from disk and refer to the listing and run of Program 6. 


Statements 10-170 give a brief description of the program and define the main 
variables used. 


THIS PROGRAM DEMONSTRATES BUILDING LISTS OF 
SUBJECTS,» VERBS; AND DIRECT OBJECTS» THEN 


RANDOMLY 


SELECTING FROM EACH TO FORM A 


‘UNIQUE’ SENTENCE. THE SENTENCE PART TO 


IDENTIFY 


IS ALSO RANDOMLY SELECTED FROM ANOTHER LIST. 
WARTABLE DICTIONARY=== 


- A RANDOM NUMBER (3-1) 
- THE CORRECT ANSWER TO SENTENCE PART IDENTITY 


A LIST OF 4 DIRECT OBJECTS 
A LIST OF 3 POSITIVE REINFORCERS 
A LIST OF THE 3 POSSIBLE SENTENCE PARTS 


TT. Oo eee 
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140 REM R¢ - THE RESPONSE TO A GIVEN QUESTION 

i50 REM S$() - A LIST OF 4 SUBJECTS 

iSO REM Y$() - A LIST OF 4 VERBS 

i170 REM X+¥+s AND Z ARE RANDOM NUMBERS (4-1) 

180 REM ssssss2s2=525 

190 REM DIMENSION THE SIZE OF EACH ARRAY (LIST) 

700 REM sssssss222225 

2710 DIM S$(4) »YV$(4) +D$(4) »P$(3) +F$(3) 
Statement 210 DIMensions (see Section 4.4.1) the size of the one-dimensional 
arrays that will be used. 


220 REM ===DATA SEQUENCE: SUBJECT: VERB, DIRECT OBJECT=== 


Statements 220-280 define as DATA elements the subjects, verbs, and direct 
objects and READ them into their respective lists. (Note the use of multiple 
statements in line 280.) 


230 DATA "SAM" »"LIKES" »"DOG" s"MARY" »"LOVES" »"CAT" 
240 DATA "HERB"» "SOLD"» "BIRD"» "LISA+ "BOUGHT", "CAR" 
P50 REM Sess ececesec 


770 REM seseceeeessss 
780 FOR I=i TO 4 : READ S#(1I) +V$(1) sDS(1I) = NEXT I 
290 REM ===STORE SENTENCE PARTS TO IDENTIFY=== 


Statements 290-320 define as DATA elements the ‘‘questions’’ that will be asked 
and READ them into a list. 


300 REM ===(THESE WILL BE OUR ‘QUESTIONS’)=== 
310 DATA "SUBJECT" +"VERB" »"DIRECT OBJECT" 
320 FOR I = 1 TO 3. : READ PS$(T) : NEAT I 
330 REM s=ss2s222s=25 
Statements 330—370 define as DATA elements the “positive feedback” comments 
given for a correct answer and READ them into a list. 
340 REM STORE FEEDBACK FOR CORRECT ANSWERS 
350 REM sfs2sesses2e=c 
360 DATA "MARVEL OU S"+"F AN TAS TIC"s*"§5 WELL" 
370 FOR I = 1 TO 3 : READ FS(I) : NEAT I 
300 REM sSsSss cesses 
390 REM ARBITRARILY» WE’LL SET THE LOOP TO ASK 
400 REM ONLY 3S QUESTIONS» RANDOMLY SELECTING THE PARTS 
“10 REM sesesseccscess 
Statements 420-730 define a “question” loop of five questions. 


420 FOR OQ = 1 705 
430 PRINT "QO" : PRINT: "GIVEN THE SENTENCE: 
440 A = INT(3 * RND(O) + 1) 


Statements 440-470 give random values for four variables. ‘‘A’’ defines the 
position in the list of questions. ‘'X’’ defines position in the list of subjects, ‘‘Y"’ 
the verb position, and “‘Z”’ the direct object position. Statement 490 PRINTs the 
sentence composed of these randomly selected parts. 


450 M = INT(4 * RND(O) + 1) 
480 Y = INT(4 * RND(QO) + 1) 
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470 2 = INT(4 * RND(O) + 1) 

480 REM ===PRINT THE SENTENCE COMPOSED OF RANDOM PARTS=== 
490 PRINT : PRINT+S$(X)" "\VS(Y)" THE "DS(Z)"," 

300 REM ===ASK FOR IDENTITY OF RANDOMLY SELECTED PART=== 
310 PRINT : PRINT»"IDENTIFY THE "P$(A)"," 


The randomly selected part to identify is asked in statement 510. 


S20 PRINT : PRINT»"YOUR ANSWER IS: "$ 

230 INPUT R$ 

540 REM s2ss2see2e2r=2 

SOO REM SINCE THE PART TO IDENTIFY WAS RANDOMLY 

960 REM SELECTED: WE MUST ASSIGN THE CORRECT ANSWER, 

570 REM ses22e2ee2e222 

2B0O ON A GOTO 590+600,610 

090 A$ = S#$(K) : GOTO G20 
The correct answer (either the subject, verb, or direct object) is assigned to A$ in 
statements 590-610. (Note the use of multiple statements in lines 590 and 600.) 

GOO AS = VYSC(¥) : GOTO G20 

610 A$ = D$(Z) 

620 IF A$ = RS THEN 720 


The answer INPUT (at statement 530) is then checked for accuracy with the 
correct answer at staternent 620. 


630 PRINT : PRINT TAB(S)"THE CORRECT ANSWER IS "AS : PRINT 


Statements 630-650 give the response for incorrect answers, hold it on the screen 
until the RETURN key is pressed, and then continue the question loop. 


G40 PRINT TAB(S)"PRESS RETURN TO CONTINUE"$ : INPUT 7Z¢ 

650 GOTO 730 

660 REM sss222s22222e 

G70 REM HERE’S WHAT HAPPENS FOR CORRECT ANSWERS: 

650 REM CLEAR SCREEN» CENTER RANDOM FEEDBACK » 

690 REM HOLD IT THERE A MOMENT OR TWO; THEN 

700 REM CONTINUE... (ALL THIS WITH MULTIPLE STATEMENTS) 

710 REM ssss22sse2e2ee 

720 PRINT "O"SFOR L=1 TO ii:PRINT:NEXT I:PRINT+sFS(A):FOR I=1 TO S00:NEXT 1 
Statements 720-730 clear the screen, give a random positive feedback based upon 
the value of variable A, display it for about one second, and then continue the 
question loop. 

730 NEXT Q 

740 REM ===END OF LOOP AND PROGRAM=== 

7350 PRINT "O":FOR I = 1 TO 1i:PRINT:NEXT I:PRINT+"THAT’S ALL..." : END 


RUN 
GIVEN THE SENTENCE: 


LISA LOVES THE CAT, 


a a rR Sa ev ee 
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IDENTIFY THE DIRECT OBJECT. 


YOUR ANSWER IS ?LISA 


THE CORRECT ANSWER IS CAT 
PRESS RETURN TO CONTINUE? 

GIVEN THE SENTENCE: 

SAM BOUGHT THE DOG. 


IDENTIFY THE DIRECT OBJECT. 


YOUR ANSWER [5 *?DOD 


THE CORRECT ANSWER [5 DOG 
PRESS RETURN TO CONTINUE? 
GIVEN THE SENTENCE: 


HERB SOLD THE CAT, 


IDENTIFY THE SUBJECT, 


YOUR ANSWER IS ?HERB 
MARVELOUS 
GIVEN THE SENTENCE: 


MARY LOVES THE DOG, 


IDENTIFY THE VERB, 


YOUR ANSWER IS? 


4 
¢ 


4 
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4.3.2 PROGRAM 7: Random Selection Without Repetition 


Another common use of one-dimensional arrays in instructional com- 
puting is in building lists of information for retrieval. These lists con- 
tain information, such as names, classifications, and addresses; ques- 
tions, answers, and hints for a given concept or topic; numerical data 
for analysis; and so on. The next program illustrates one method of 
building lists and then randomly selecting items of information from 
them. 

The primary purpose of this program is to demonstrate building 
one-dimensional string arrays (lists) and then randomly selecting from 
the lists. A user is given the option of making the length of the list 
from 3 to 15 elements. The lists, containing names and sex, are then 
made via INPUT statements. The user then has the option of deciding 
on the number of names to be randomly selected from the list, with 
each randomly selected name appearing only once. This randomly 
selected list and the complete list of all names are printed, and the 
user has the opportunity to create another list or stop. 

RUN from disk and refer to the listing and run of Program 7. 


PROGRAM 7 
10 REM PROGRAM 7 DESCRIPTION 
Statements 10-240 briefly describe the purpose of the program and the variables 
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220 


used, 


REM 


REM 


THIS PROGRAM DEMONSTRATES ‘FILLING’ A 
ONE-DIMENSIONAL ARRAYS THROUGH INPUT, 
RANDOM SELECTION WITHOUT REPETITION OF 

ANY PREVIOUSLY SELECTED ITEM IS SHOWN, 
THIS 15 DONE BY DEFINING A LIST OF "ZEROS" 
AND ‘FLAGGING’ EACH SELECTED POSITION, 


VARTABLE DICTIONAR’ 

N - THE NUMBER OF NAMES IN A LIST (YIA INPUT) 

N$() - HYPOTHETICAL NAMES 

5 - THE NUMBER OF NAMES RANDOMLY SELECTED FROM THE LIST 
5$() - SEX (M = MALE+ F = FEMALE)» ALSO YIA INPUT 

A - A RANDOM NUMBER 

2(K) - A ‘FLAG’ FOR THE RANDOM NUMBERS (EITHER © OR 1) 


QO THE NUMBER K HAS NOT BEEN SELECTED 
1 THE NUMBER X HAS BEEN SELECTED 


IF 2K 
IF 2% 


DIMENSION THE YARTABLES USED TO THEIR MAXIMUM 
OIZE,s CLEAR THE SCREEN,» AND ASK FOR 
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230 REM THE NUMBER OF NAMES TO BE INPUT 
P40 REM ssssssss22s525 
250 DIM N$(15) .5$(15) +2(19) 


Statement 250 DIMensions (see Section 4.4.1) the length of the one-dimensional 
arrays (lists) to be a maximum of 15 elements. 


260 PRINT "QO" : FOR I = 1 TO 1i:PRINT:NEXT I 
270 PRINT "NUMBER OF NAMES TO ENTER (3-15)"5 


Statements 270—290 allow the user to define the number of elements in the list. 


280 INPUT N 
290 IF N “3 OR N > 15 THEN 250 
300 FOR I = 1 TON 
Statements 300-420 request a name [assigned to N$(I)] and sex [assigned to 
S$(I)] for each of the elements. (Note the use of IF-OR-THEN in statement 410.) 
310 REM ===INITIALIZE ‘FLAG' LIST TO ZERO=== 
320 Z(1) = 0 
330 PRINT "Q" : FOR P=i TO 10 : PRINT : NEAT P 
340 PRINT+"NAME NUMBER" I35 
350 INPUT N#(I) =: PRINT 
360 PRINT»"SEX (M OR F)"5 
370 INPUT S#(1) 
S00: REM Ssesssescsssseess 
390 REM CHECK FOR CORRECT ENTRY. NOTE THE USE OF IF-AND-THEN PRINT 
JOO REM 2seseseessessss 
410 IF S$(I) <> "M" AND S$(I) <> "F" THEN PRINT+"FUNNY SEX?" +: GOTO 360 
420 NEXT I 
430 PRINT "QO" : FOR P = 1 TO 11 : PRINT : NEAT P 


Statements 430—500 give the user the option of defining the number of random 
selections to be made from the lists just entered. 


440 PRINT "YOU HAVE" N "NAMES. HOW MANY DO YOU" 
4350 PRINT "WANT TO RANDOMLY SELECT"; 


460 INPUT 5 
470 REM ===CAN THAT MANY BE SELECTED?=== 
480 IF § > 0 AND § <= N THEN 510 


490 PRINT "THAT IS NOT POSSIBLE. YOU HAVE" 
500 PRINT "ENTERED" N "NAMES!" : GOTO 440 
510 PRINT "0" 


Statements 510-540 print a heading for the lists of randomly selected items. 


220 PRINTS "RANDOMLY SELECTED NAME(S)" : PRINT 

230 PRINT s"NUMBER" »"NAME" +"SEXK" 

240 PRINT »"------ ee ae 

Sou. REM Ses sssee esses ss 

260 REM BEGIN SELECTING NAMES AT RANDOM BY THEIR 

270 REM POSITION IN THE LIST. PRINT A MESSAGE 

280 REM IF THE SAME POSITION IS SELECTED MORE THAN ONCE, 
S90 REM Sees asscecscascs 

600 FOR I = 1 70 5 
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Statements 600-720 print the lists of randomly selected numbers, names, and 
sexes. 

Statement 600 defines the upper limit of the loop to be the value of the variable S 
(the number of names to be selected, which was INPUT at statement 450). 


610 REM ===RANDOM VALUE FOR ‘’X’ WITHIN THE LIMITS OF ‘N/=== 
G20 kK = INT(N * RND(O) + 1) 


Statement 620 assigns to variable X some random value between 1 and the 
variable N (the number of names in the complete list, which was INPUT at 
statement 340). 
G30 REM ===HAS THIS VALUE OF ’X’ APPEARED BEFORE?=== 
640 IF 2(X) = 1 THEN PRINT "THE NUMBER" X "ALREADY CHOSEN!" : GOTO 620 


Statement 640 checks the value of variable Z(X). If this value is 1 all values of Z(X) 
were initialized to zero in statement 320, the random number represented by X has 
appeared previously. If so, a message to that effect is displaved and transfer is 
back to 620 for another random number. 


G50 REM s2es2s22seeer2er2 
6G0 REM DISPLAY THE NUMBER» NAME+ AND SEX OF THE POSITION SELECTED 
670 REM AND "FLAG" THAT POSITION IN THE LIST, 
680 REM BSssstsasssssss 
690 PRINT +X sNS(X) »S$(X) 
Statement 690 prints the values of X, N$(X), and S$(X). Statement 710 “flags’’ the 
selection of this value of X by setting Z(X) = 1, and the loop continues at 
statement 720 until completion. 


700 REM ===HERE’S THE FLAGGIN’=== 

710 Z2(K) = 1 

720 NEXT I 

7390 PRINT +: PRINT 

740 INPUT "PRESS RETURN FOR THE COMPLETE LIST" 42% 
730 PRINT "Q" 


After the randomly selected list has been printed, statements 750-810 print the 
complete lists of names and sexes. 


760 PRINT+"THE COMPLETE LIST IS:" +: PRINT 
770 PRINT s"NUMBER" >"NAME" ,"SEX" 

780 PRINT;" ean oe ee hI tg ek eae ag ee 

790 FOR I = 1 TON 

800 PRINTsI »N$( 1) »S#(1) 

810 NEXT I 

820 PRINT =: PRINT 


Statements 820-880 give the opportunity for the program to be RUN again, 
creating a new list and randomly selecting from it, or to end the program. 


830 INPUT "CREATE ANOTHER LIST (Y OR N)"32z 

840 IF 26 = "VY" THEN 250 

850 PRINT "QO" : FOR P = 1 TO it : PRINT : NEXT P 
860 PRINT TAB(15) "D ON E" 

870 FOR P = 1 TO 2000 : NEXT P : PRINT "9" 

880 END 


a 
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RUN 

NUMBER OF NAMES TO ENTER (3-19)7?7 

NAME NUMBER 1?FRANK 

SEX (M OR F)?M 

NAME NUMBER 2?FRAN 

SEX (M OR F)?F 

NAME NUMBER 3?BILL 

SEX (M OR F)?M 

NAME NUMBER 4?BARB 

SEX (M OR F)TF 

NAME NUMBER S?BUCK 

SEX (M OR F)?B 
THAT’S A FUNNY SEX! 

SEX (M OR F)?M : 

NAME NUMBER G?KAY 

SEX (M OR F)?F 

NAME NUMBER 7?TRACY 

SEX (M OR F) TF 

YOU HAVE 7 NAMES. HOW MANY DO YOU 

WANT TO RANDOMLY SELECT12 

THAT IS NOT POSSIBLE. YOU HAVE 

ENTERED 7 NAMES! 

YOU HAVE 7 NAMES. HOW MANY DO YOU 

WANT TO RANDOMLY SELECTS 


2 RANDOMLY SELECTED NAMES: 


NUMBER NAME SEX 

6 KAY F 

7 TRACY E 

THE NUMBER G6 HAS BEEN SELECTED BEFORE 
4 BARB F 

3 BILL M 

2 FRAN F 


THE COMPLETE LIST IS: 


NUMBER NAME SEX 
1 FRANK M 
2 FRAN F 
3 BILL M 
4 BARB F 
rs) BUCK M 
6 KAY F 
z TRACY F 


en 
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CREATE ANOTHER LIST (Y OR N)N 


DONE 


4.3.3 Use of a “Flag” for Nonreperitive Random Selection 


In Program 7, all values for Z(X) are initialized to zero (statement 
320) as the name and sex information is INPUT. A partial list of the 
information INPUT in the sample RUN of Program 7 would be: 


x N$(X) S$(X) Z(X) 
1 Frank M 0 
2 Fran F 0 
3 Bill M 0 
4 F 0 


Barb 


If, for example, a random value for X is 2 (statement 620), then Z(2) 
is set to 1, that is, “flagged” (statement 710), and the list would now 


‘be: 
xX N$(X) S$(X) Z(X) 
1 Frank M 0 
2 Fran F 1 
3 Bill M 0 
4 F 0 


Barb 


Since Z(2) is now equal to 1, any subsequent random value where X 
is equal to 2 would cause statement 640 to transfer execution back to 
statement 620, where another random value for X would be gener- 
ated. Therefore, any randomly selected name in this program example 
will be displayed only one time. 


4.4 BASIC Statements for This Chapter 


4.4.1 Statement—DIM 


Purpose DIMensions (defines the size needed) for one- and two-dimensional 
arrays. On most BASIC systems, it is unnecessary to use the DIM 
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statement unless the array will contain more than ten elements. Most 
systems automatically allocate space for ten or less elements. How- 
ever, it is good programming practice to DIMension all arrays, even 
those containing ten or less elements. 


Examples: DIM N#(12)+2(5) 


(Dimensions space for a list of 12 string variables and a list of 5 numeric 
variables.) 


DIM $(20%3) 


(Dimensions space for a 20-row, 3-column table containing numeric 
data.) 


4.4.2 Statement Pain—GOSUB-RETURN 


Purpose This statement pair is very useful for programs in which a sequence 
of statements is repeated several times throughout program execu- 
tion. Whenever GOSUB is encountered, program execution is trans- 
ferred to the statement number specified in the GOSUB. Execution 
continues from that statement until the RETURN statement is 
encountered. Execution is then transferred (RETURNed) to the state- 
ment number immediately following the GOSUB statement that caused 
the transfer in the first place. | 

A typical example in instructional computing would be an answer- 
checking sequence for student input in a program containing several 
questions. Rather than writing an identical answer-checking sequence 
for each question, it is written only once as a subroutine. GOSUB may 
then be used after each question to check the answer. 


Example: 10 PRINT "CAPITAL OF TEXAS"$ 
20 A$ = "AUSTIN" 
30 GOSUB 1000 
40 PRINT "X MARKS THE --?--"3 
50 A$ = "SPOT" 
S0 GOSUB 1000 
980 PRINT; "BYE-BYE » « «" 
990 END 
1000 INPUT R¢ 
1010 IF R& = A$ THEN PRINT "GREAT!" +: RETURN 


1020 PRINT "NOPE . . .IT’S " AS 
1030 RETURN 


Mentally execute this program before entering and RUNning it. 
Note that the program has room to incorporate other questions between 
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. 70 


statements 60—980, that RETURN may be with different statements 
in the subroutine, and that END may come before the subroutine. 


4.4.3 PROGRAM 8: Question Sets and Hints Using GOSUB- 
RETURN Statements 


The following program illustrates the use of GOSUB-RETURN ina 
“muscle quiz.” Note that alternate correct answers are used, note how 
the questions, hints, and answers are assigned and presented, and 
note that credit is given only for those answers that are correct on the 
first try. Mentally outline the execution of this program carefully. 
Program 8 will not be discussed as the previous programs were. 
RUN from disk and refer to the listing and run of Program 8. 


PROGRAM 8 
10 REM Sscceeeussceecec 
20 REM PROGRAM 8 DESCRIPTION 
30 REM i 
40 REM PROGRAM DEMOS THE USE OF 
50 REM GOSUB-RETURN+ CHECKING FOR 
GO REM SYNONYMOUS CORRECT ANSWERS 

REM AND ASSIGNMENT OF HINTS, 
80 REM Sa2essrre2z22222“22“°“2 
90 REM VARIABLE DICTIONARY 
100 REM i 
110 REM C - CORRECT ANSWER COUNTER 
120 REM C% - SYNON. CORRECT ANSWER 
130 REM OD - SYNON., CORRECT ANSWER 
140 REM E# - SYNON. CORRECT ANSWER 
190 REM F - FLAG FOR MISS ON iST TRY 
180 REM H$ - THE HINT GIVEN ON 1ST MISS 
i170 REM oe 
180 PRINT "9" 
190 PRINT " MUS BE QUT 2" 
200 PRINT 
710 REM Sateen eerrszneses 
220 REM PRINT THE QUESTION: DEFINE 
230 REM THE CORRECT ANSWER(S) AND THE 
240 REM HINT TO BE GIVENy THEN USE THE 
290 REM SUBROUTINE FOR INPUT AND CHECKING 
“BO REM BSeesesteeaeaeesses22 
2/70 REM 
260 PRINT "WHAT IS THE LARGEST MUSCLE" 
290 PRINT " IN THE HUMAN BODY "$ 
300 C$ = "GLUTEUS MAXIMUS" 
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310 D$ = "BUTTOCKS" 

320 ES = "DERRIERE" 

330 H$ = "CHANCES ARE IT’S FLATTENED RIGHT NOW" 
340 GOSUB 3000 

350 REM Sess Sc eS =e = = 

360 REM REPEAT THE QUESTION AND 

370 REM ANSWER SEQUENCE AGAIN 


390 REM sssss=ssss=se2=2== 
390 PRINT "WHAT MUSCLE IS CONSIDERED BY SOME" 
400 PRINT " TO HAYE AN ORIGIN" 

410 PRINT "BUT NO INSERTION "5 

420 REM ===ONLY ONE ANSWER=== 

430 C$ = "TONGUE" 

440 Dé = CH 

450 ES = C$ 

460 H$ = "ON SOME, IT ‘WAGS’ A LOT!" 

470 GOSUB 3000 

480 REM ssssssss=sss===2 


480 REM REPEAT THE PROCESS 
200 REM FOR A FINAL QUESTION 


5iQ REM saosestestzststesstese 
220 PRINT "WHAT MUSCLE HAS MADE MARK EDEN RICH;" 
230 PRINT " OLD MEN LEER" 


240 PRINT "AND WEIGHT LIFTERS STRUT "35 
yo0 C$ = "PECTORAL" 

260 DS = "PECTORALIS MAJORA" 

70 ES = "“PECTORALS" 

O90 HS = "PALM TQ PALM PRESSURE DEVELOPS IT!" 
290 GOSUB 5000 

GO0 REM Sse bskeesececeas 

G10 REM THERE’S PLENTY OF ROOM 

620 REM TO ADD MORE QUESTIONS AND 

630 REM ANSWERS FOLLOWING THE SAME 
G40 REM SEQUENCE AS ABOVE 

650 REM WITH PRINTS+s SYNONYMOUS ANSWER 
660 REM AND HINT ASSIGNMENTS FOLLOWED 
670 REM BY A GOSUB 5000 

680 REM Botts nrstestesesc 

690 REM Sooscscnmsstssesscc 

700 REM STATEMENT 4990 IS NEEDED 

710 REM TO SKIP THE SUBROUTINE: 

720 REM GIVE THE PERFORMANCE SCORE 
730 REM AND END THE PROGRAM 

740 REM mmonmstscrscserstsess 

4990 GOTO 35190 

499q4 REM Sse se sesso eee 
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4996 REM SUBROUTINE PORTION OF PROGRAM 

4998 REM =ssssss=ss===s=5 

O000 INPUT AS : PRINT 

S010 IF AS = C$ OR AS = D% OR AS = ES THEN 5080 

9020 REM ===GIVE A HINT ON THE FIRST MISS=== 

9030 IF F = 0 THEN F = 1 : PRINT H# : PRINT "NEXT ANSWER"S : GOTO 5000 
S040 PRINT: PRINT+ "CORRECT ANSWERS ARE:" 

O050 PRINT +: PRINT C%#sD$ sE% 

S060 PRINT : INPUT "PRESS RETURN TO CONTINUE..."32% : GOTO 5120 
2070 REM ===NO CREDIT IS GIVEN FOR CORRECT ANSWERS ON 2ND TRY=== 
o0B80 IF F = 1 THEN 3100 

2090 C = C + |i 


S100 PRINT:PRINT:PRINT TAB(15)"0.K.!" : FOR P = 1 TO 1000 : NEXT P 
2110 REM ===SET F TO ZERO BEFORE NEXT QUESTION=== 
2120 F = 0 


9130 PRINT "0" 

2140 RETURN 

5150 REM SSssSecea Sor ecs 

0160 REM END OF SUBROUTINE 

5170 REM SSeeecee ss sesa= 

9180 PRINT 

O190 PRINT "YOU GOT" C "CORRECT ON THE FIRST TRY." 
o200 PRINT : PRINT +"THAT’S ALL..." 

2210 END 


RUN 
mS CE QuUT2 


WHAT IS THE LARGEST MUSCLE 
IN THE HUMAN BODY ?BUTTOCKS 
O.K. 


WHAT MUSCLE IS CONSIDERED BY SOME 
TO HAVE AN ORIGIN 

BUT NO INSERTION ?BICEPS 

ON SOME, IT ’WAGS’ A LOT. 

YOUR NEXT ANSWER IS?TAIL 


CORRECT ANSWERS ARE: 
TONGUE TONGUE TONGUE 


PRESS RETURN TO CONTINUE... 


WHAT MUSCLE HAS MADE MARK EDEN RICH: 
OLD MEN LEER 

AND WEIGHT LIFTERS STRUT ?CHEST 

PALM TO PALM PRESSURE DEVELOPS IT! 

YOUR NEAT ANSWER IS?PPECTORALS 

OKs 
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Menu 


YOU GOT 1 CORRECT ON THE FIRST TRY, 


THAT‘’S ALLss. 


4.4.4 Incorporating Commands in A Program 


By now, you are well aware of several of the BASIC commands (LOAD, 
RUN, LIST, etc.) of the Commodore 64 microcomputer. Many of these 
commands may be incorporated within the body of a BASIC program. 
When these are executed they could, for example, execute (RUN) 
another program from the disk. This example is particularly useful 
in that one program can ‘‘command” another program to RUN, which 
could command another program to RUN, and so on. Thus, programs 
can be “linked” together in ‘‘chain”’ fashion, rather than writing, 
entering, testing one long program. 

A common use in instructional computing is to design one program 
as a ‘‘menu’ of available programs on the disk. When this menu pro- 
gram is executed, a selection of programs is displayed, and the user 
may enter the choice desired. Based upon the user's input, execution 
is transferred to the appropriate line number in the menu program 
that commands the system to RUN the program selected. When cer- 
tain statements in our example menu program are executed, the sys- 
tem will automatically LOAD and RUN the program named Sequel 
1. At the conclusion of Sequel 1, these statements could be incorpo- 
rated to LOAD and RUN the program named Sequel 2, and so on. 

This use of commands as BASIC statements is illustrated in the 
program named MENU on the disk. Carefully examine the listings of 
MENU, SEQUEL 1, and SEQUEL 2; then, RUN MENU and note the 
options and actions it provides. In particular, note the method in 
MENU by which program names are assigned to a one-dimensional 
array. Then note how the selected program is RUN. Compare this use 
of RUN as a statement with those in SEQUEL 1 and SEQUEL 2. 


10 REM MENU DESCRIPTION 

270 REM SSVvecocoscessss sss 

30 REM PROGRAM DEMONSTRATES HOW A ‘MENU’ OF PROGRAMS 
40 REM MAY BE PROVIDED TO A USER. USING ‘POKE’ 

30 REM STATEMENTS: ONE PROGRAM WILL AUTOMATICALLY 

GO REM ‘LOAD’ AND ’RUN’ THE PROGRAM DEFINED AS 

70 REM THE STRING P#(C), 

BO REM Sa2atestszstassstes 

930 REM 

100 PRINT "Q" : PRINT : PRINT 
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110 PRINT TAB(G) "PROGRAM MEN U" ¢ PRINT 
120 PRINT+"YOUR OPTIONS ARE:" : PRINT 

130 PRINT+"1, SEQUEL i" 

140 PRINT+"2., SEQUEL 2" 

150 PRINT+"3. STOP" 

150 PRINT : PRINT+ = INPUT "YOUR CHOICE IS (1-3):"5¢ 
164 IF € « 1 OR C ? 3 THEN 160 

170 IF-C = 3 THEN PRINT "0" : PRINT "SELECTIONS COMPLETED" : END 
180 REM | 

190 REM ===STORE VALUES IN P#()=== 

200 REM 

210 FOR IT = 1 TO 2 : READ PS(I) +: NEXT I 

220 PRINT "Q" 

230 REM 

240 REM ===LOAD AND RUN USING ‘POKES’=== 

290 REM 

260 PRINT "LOAD "SCHR$(34) §P$(C) SCHRS(34) 5" 48" 

270 POKE 631,19 : POKE G32+17 : POKE 633413 

280 POKE 634,82 : POKE 635,85 : POKE 636+78 : POKE 637:13 : POKE 198,47 
290 REM 

300 REM ===DATA FOR PROGRAM NAMES TO LOAD AND RUN=== 
310 REM 

320 DATA "SEQUEL i"s"SEQUEL 2" 


Sequel 1 


10 REM SEQUEL 1 DESCRIPTION 

20 REM sosnessnesccses 

3O REM ONE OF THE PROGRAMS ACCESSED VIA ‘MENU’ PROGRAM, 
dO: (REM eteseseeseseeses 

oO REM 

SO PRINT "OQ" : FOR I = 1 TO 10 : PRINT : NEXT I 

70 PRINT "AND HERE WE ARE EXECUTING ‘SEQUEL 1’..,." : PRINT 
80 PRINT "IF YOU PRESS THE LETTER ‘N’ (FOR NEXT) +" 

JO PRINT "WE’LL GO TO ’SEQUEL 2’, ANY OTHER KEY" 

100 PRINT "WILL TAKE YOU BACK TO ‘MENU’." +: PRINT 

110 PRINT "WHAT’S YOUR PLEASURE?" § 

120 GET 2% : IF 2% = "" THEN 120 

130 IF 2$ = "N" THEN F% = "SEQUEL 2" : GOTO 150 

140 FS = "MENU" 

150 PRINT "9" 

160 REM | 

170 REM ===USE OF POKES TO LOAD AND RUN ‘F%/=== 

180 PRINT "LOAD "SCHR$(34) SFS$ICHR$(34)5",8" 

190 POKE G31+19 : POKE 632+17 : POKE 633+13 

200 POKE 634,82 : POKE 635+85 : POKE 636+;78 : POKE 637,13 : POKE 19857 
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Sequel 2 10 REM SEQUEL 2 DESCRIPTION 
20 REM — 
30 REM ONE OF THE PROGRAMS ACCESSED YIA ‘MENU’ PROGRAM, 
40 REM ie 
20 REM 
60 PRINT "9" : FOR I = 1 TO 10 : PRINT : NEXT I 
70 PRINT “AND HERE WE ARE EXECUTING ‘SEQUEL 2’ ..4." s PRINT 
90 PRINT "NOW, WHEN YOU PRESS ANY KEY, I" 
100 PRINT "WILL TAKE YOU BACK TO ‘MENU’s" : PRINT 
110 PRINT "I’M WAITING..." 
120 GET 2$ : IF 2% = "" THEN 120 
140 FS = "MENU" 
150 PRINT "Q" 
iGO REM 
170 REM ===USE OF POKES TO LOAD AND RUN ‘F$‘=== 
180 PRINT "LOAD" sCHR$(34) SFS sCHR4(34) 3"58" 
190 POKE 631;+19 : POKE 632517 : POKE 633:13 
290 POKE 634;82 : POKE 635+85 : POKE 636;78 : POKE 637;:13 : POKE i 


RUN 
PROGRAM MENU 


YOUR OPTIONS ARE: 


1, SEQUEL 1 
2+ SEQUEL 2 
3. STOP 
YOUR CHOICE (1-3)71 


AND HERE WE ARE EXECUTING 
PROGRAM ‘SEQUEL 1’.+. 


IF YOU DEPRESS THE LETTER ‘N’ 

(FOR ‘NEXT’)» WE’LL GO TO 

“SEQUEL 2’. ANY OTHER KEY 

WILL TAKE YOU BACK TO THE ‘MENU’... 


WHAT’S YOUR PLEASURE? N 


AND HERE WE ARE EXECUTING ‘SEQUEL 2'.+. 


NOW, WHEN YOU PRESS ANY KEY, I 
WILL TAKE YOU BACK TO ‘MENU’, 


I/M WAITING. «+ 


70 Chapter Four DIM It! There Must Be An Easier Way! Array! Array! There Is! 


PROGRAM MENU 


YOUR OPTIONS ARE: 


1. SEQUEL 1 
2+ SEQUEL 2 
3. STOP 


YOUR CHOICE (1-3)73 


SELECTIONS COMPLETED 


4.9 Posers and Problems 


1. 


Assume you have a class of 20 students and the semester test 
average and final exam scores for each. Outline the BASIC state- 
ments that would make a series of lists of this information. 


. Outline the BASIC statements that will read 3 scores io each of 


25 students into a two-dimensional array. 


. Write a brief paragraph outlining the execution of the program 


consisting of the combined statements in Section 4.2.2. 


. Describe what would result from execution of the following BASIC 


statements: 


10 DATA "TEXAS" »"OKLAHOMA" +"KANSAS" +"NEVYADA" »"UTAH" 
20 FOR I = 1 705 


30 READ S$(1) 

AQ NEXT I 

OM FOR K = 1 TO 3 

60 A = INT(S * RND(O) + 1 
70 PRINT S$(A) 

BQO NEXT K 

90 END 


. How would adding the following statements affect the execution 


of the program in Problem 4? 


34 2(1) = 0 
G4 IF 2(k) = 1 THEN 60 
6G Z2(A) = 1 


. Describe the execution of the program in Problem 5 if statement 


50 were changed to: 
20 FOR K = 1 T0 6 


Think this through carefully before entering and RUNning. 
Remember, depressing the RUN/STOP and RESTORE keys 
simultaneously will halt a runaway program! 
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7. How would you modify the program in Section 4.4.2 to print 
a hint as a response for the first miss and give the correct 
answer on the second miss? (Hint: One way to do this is shown in 
Program 8.) 

8. Write a program that creates five random sentences from lists of 
subjects, verbs, and objects. 

9. Write a program to choose and print four random numbers between 
1 and 10 without repeating any number that has been printed. 

10. Write a program that will be a Drill Menu for the addition, sub- 
traction, multiplication, and division programs written in Chap- 
ter 3. Modify each of the drill programs so that at their conclu- 
sions the Drill Menu program will be RUN. NOTE!!! SAVE your 
Drill Menu program before RUNning to test your design. (Why is 
this necessary?) 
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Chapter Five 


“a - 


wee 


Relax and Catch Your BASIC 


Breath 


6a) 


Tis an old tale, and 
often told.”’ 
Walter Scott 


“For time will teach thee 
soon the truth / 
There are no birds 
in last year’s nest.”’ 

H.W. Longfellow 


“And look before you, 
ere you leap | 
For as you sow, 
y are like to reap.” 
Samuel Butler 


ie. Ya —— 
<—s ! b- eel 


Think About This 

(for Fun) 

Four men are on a raft in 
the middle of the ocean. 
Each has one carton of 
cigarettes but no means 
whatsoever of lighting 
them. The smartest of the 
four, however, devotes his 
full mental prowess to the 
problem and, within min- 
utes, all are smoking a 
cigarette. How was this 
accomplished? 
SSS TG 
Think About This 
(Seriously) 

Could the role of the 
teacher change as com- 
puters become common in 
our schools? If so, how 
do you see this new role? 


73 


7.1 Objectives 


For the successful completion of this chapter, you should be able to: 


Design, enter, and RUN a minimum of three short programs using 
the BASIC statements summarized below. 


7.2 BASIC Statements: A Summary and Some Typical Uses 


As an examination of any BASIC text or manual will show, there is 
more to the language than has been discussed so far. To this point, 
nothing more has been presented than a brief introduction to the 
basics of BASIC. Although there is much more (some of which will be 
presented in later chapters), the statements and commands discussed 
to this point are the foundation for instructional computing 
applications. 

This chapter summarizes these statements and broadly outlines 
their use in designing application programs. This summary must be 
general in illustrating applications since, as in any writing endeavor 
(programming or otherwise), the author’s creativity is the limiting 
factor. The BASIC statements are only the means by which programs 
can be constructed. The content, design strategies, effectiveness, and 
applicability of programs are the end result of creativity. Programs 
can only be as good—or as bad—as this factor. 

Note: Many of the following examples are actually program frag- 
ments that may be referenced for future program development. 


27.2.1 PRINT 


This statement displays (outputs) information. 


Some typical uses Example 

Output text PRINT "WHAT‘’S YOUR NAME" 5 

Text + numeric var PRINT "SCORE IS " § " PERCENT" 
Text + string var PRINT "HELLO+ " NS "I" 


Numeric with spacing PRINT A+BoC 
String (close packed) PRINT N$SS$5AS% 


7.2.2 LET (Optional) 


This statement allows the assignment of a value to a variable. 
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Some typical uses Example 


Counters C=C +1 

Assign correct answer A$ = "AUSTIN" 
A=Y¥ x2 

Assigning hints H$="“RIVER CITY ’" 

Computation 5S = C * 100/09 


27.2.2 INPUT 


This statement receives information (input) from the keyboard and 
assigns it to a defined variable. 


Some typical uses Example 
Numeric input INPUT N 
String input INPUT N$ 
Combinations INPUT NN 


INPUT Ke¥o2 


7.2.4 GOTO 


This statement acts as an unconditional branch (transfer of execution) 
to a specified statement number. 


Some typical uses Example 


Skipping statements 100 GOTO 130 
110 PRINT "YERY GOOD!" 
120 C=C +i 
130 PRINT "NEXT QUESTION. . ." 
%* &© EE F 


Returning for input 100 PRINT : PRINT TAB(12)3 
110 INPUT "YOUR ANSWER IS"GR 


4 


130 PRINT "NO»+ TRY AGAIN. . ." 
160 GOTO 100 
e+ ee 


(Note: The three vertical dots denote omitted program segments.) 


---_———_.:.-_"-"-_-_ " -—_—_-- rwr—r—————————————————————— ee eee 
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7.2.2 IF-THEN 


This statement acts as a conditional branch to specified statement 
number if the defined condition is true. 


Some typical uses 


Answer checking 


Determining the sequence 
of execution 
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Example 


100 IF R$=A$ THEN PRINT "GOOD: SHOW!" 
: GOTO 120 
110 PRINT "NO+ THE AN6GWER IS " As 


140 IF F = 1 THEN i60 
130 C> = C-+ 4 
160 PRINT " NEXT QUESTION. ,. ." 


* & & F 


100 IF R < 40 THEN 140 
110 IF R > 40 THEN 160 
140 PRINT "TOO LOW. . ." 
150 PRINT "TQQ HIGH ». « 4" 
ee & F 


100 IF F = 1 THEN 200 

110 F = 1 

1270 PRINT "HERE’S A HINT » « o" 

200 PRINT "THE CORRECT ANSWER IS " A 
%* * & & F 


100 IF A$ = "STOP" THEN BOQ 
800 PRINT "HERE’S YOUR SCORE . «+ +" 
+ & & * & 


Combinations of statements 100 IF A# = R$ THEN C = C + 1 
ek EK 
100 IF A < 1 OR A > 10 THEN 
PRINT "Q" 
110 PRINT : PRINT "OUT OF RANGE" 


800 PRINT "YOUR GRADE IS "3 

810 IF § + 99 THEN PRINT "A" 

820 IF § >» 79 AND S < 90 THEN PRINT 
vB" 


%* & & & F 


7.2.6 ON-GOTO 


This statement acts as a branch to a specified statement based on the 
value of a defined variable or expression. 


Some typical uses Example 
Branch to a randomly ' 
selected question ‘ 


100 K = INT(S * RND(O) 41) 
150 ON &K GOTO 200:300 4001500 ,600 
200 PRINT "QUESTION 1.4. 4" 


300 PRINT "QUESTION 2... -" 
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Branch to a hint for a given ' 
question ‘ 


100 PRINT "QUESTION 1 44 4" 
110 9 = 1 


200 INPUT "YOUR ANSWER IS"5RS$ 


PRINT "HERE’S A HINT » + +" 
ON 9 GOTO 700+800+900 


700 PRINT "HINT FOR QUESTION 1. «+ +" 
710 GOTO 3500 


7.2.7 DATA-READ (Statement Pair) 


This statement ‘‘stores” and assigns (READs) information to a defined 


variable. 
Some typical uses Example 
Assignment of question 100 REM *#*#* QO$=QUES A$=ANS H$=HINT 
answer and hint 110 DATA "TEXAS" +"AUSTIN" +"RIVER 
CITY" 

200 READ 0% +A$+HS 

% ¥ * # 
Assignment of numerical 100 DATA 90+761:33+70 +88 +93 
information ' 


+ 


150 READ $1+52 953 
iGO T = T + S1 + S2 + 83 


%* & © & F 
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2.2.8 FOR-NEXT (Statement Pair) 


This statement repeats (loops) statement sequence between the FOR 
and the NEXT a defined number of times. 


Some typical uses Example 
Assigning data to arrays 200 PRINT "NUMBER OF SCORES"$ 
210 INPUT N 
229 FOR I = 1 TON 
230 PRINT "SCORE" $ 
240 INPUT S(T) 
2o0 T= 7 + S(T) 
260 NEXT I 
270 A = T/N 


280 PRINT "AVERAGE SCORE IS " A 


+ 


$ 
¢ 
%* &* & He F 


100 DATA "QUES i"+"ANS 1"y+"HINT 1" 
110 DATA "QUES 2"y"ANS 2" y"HINT > 2" 


+ 


£00 FOR I = 1 TO 10 
210 READ O€(1) sAS( I) +H$(1) 
220 NEXT I 


Checking response to match ‘ 
any defined answer ' 


200 FOR I = 1 TO 10 


210 IF R& = AS$(I) THEN 240 
220 NEXT I 
230 GOTO 500 


240 PRINT "MATCHES ANS NO. " I 


Defining the number of ‘ 
questions to be asked ' 


100 PRINT "HOW MANY DO YOU WANT" 
110 INPUT P 

120 IF > 1 AND P < 11 THEN 150 
130 PRINT "THAT’S TOO MANY!" 
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Some typical uses Example 


140 GOTO 100 
150 FOR I = 1 TQ P 
160 PRINT "PROBLEM NUMBER " P 


¢ 


4 


300 NEXT I 


%* &£ & & & 


7.2.9 GOSUB-RETURN (Statement Pair) 


This statement GOes to the statement number defining the SUBrou- 
tine, executes the statements in sequence until RETURN is executed, 
and then returns to the statement following the GOSUB. 


Some typical uses Example 


Answer-checking sequence ' 


100 PRINT "QUESTION 1. . +" 
105 A$ = "ANSWER 1" 

110 GOSUB 2000 

120 PRINT "QUESTION 2... ." 
125 A$ = "ANSWER 2" 

130 GOSUB 2000 


2000 INPUT R& 

2010 IF R$ = AS THEN 2080 
2080 C = C + 1 

2090 PRINT "HOT-DOGGIES!"® 
2100 RETURN 


ke & & 
Generating random ' 
numbers ' 
4 
100 GOSUB 3500 
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110 PRINT "IF MASS = " XK " AND" 
120 PRINT "VOLUME = " ¥Y 
"» DENSITY ="4 
130 INPUT R 
140 IF R=2Z THEN 200 


000 


& = INT(1000 * RND(O) + 1)/100 
010 Y = INT(S00 * RND(O) + 1)/10 
020 2 = K/Y 


030 RETURN 
kee 


Generating random 10 DATA "GOOD" +"GREAT" + "WOW" 
responses 29 FOR I = 1 70 3 

30 READ R$(T) 

40 NEXT I 


4 


4 


900 GOSUB 750 


4 


¢ 


750 X = INT(3 * RND(O) + 1) 
760 PRINT R#(X) "I" 
770 RETURN 


%* ee 
Generating messages, 100 GOSUB S000 
Screen positioning ‘ 


4 


S000 PRINT "QO" : PRINTs 
2010 PRINT "(Message « « 4)" 
0020 PRINT : PRINT 

2030 RETURN 

ee ee 


2.2 A Summary of the Purposes of BASIC Statements 


Although there are more statements to the BASIC language, the ones 
summarized in this chapter are fundamental to the construction of 
instructional computing programs. In essence, these statements form 
the foundation upon which a program author has: 


1. Some means of assigning and/or displaying values. 

2. Some means of controlling the screen display and the sequence of 
execution. 

3. Some means of easing repetitious tasks. 
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Thus, most of the BASIC statements discussed to this point may be 
further summarized into three categories: 


Assignment Control Repetition 

PRINT END FOR-NEXT 

LET PRINT “9” GOSUB-RETURN 
INPUT IF-THEN 

DATA-READ ON-GOTO 

DIM GOTO 


This further generalization can be helpful in the initial design stages 
of program development. Once the category for a particular design 
task is identified, it becomes a matter of selecting the appropriate 
statements and defining their sequence of execution. 


7.4 Posers and Problems 


1. Assume a program is to be designed that gives credit for a correct 
answer only if it is answered correctly on the first attempt. Outline 
the statements needed to accomplish this. 

2. Assume a program is to be designed that gives a hint on the first 
miss and the correct answer on the second miss. Outline the state- 
ments needed to accomplish this. 

3. Assume five questions are to be randomly selected from a one- 
dimensional array containing ten questions without repetition of 
any question during a given run. Outline the statements needed to 
accomplish this. (Hint: See Problems 4 and 5 in Chapter 4.) 

4. Assume a program is to be designed that: 


a. 


C7O0 


Stores 15 questions, 15 answers, 15 hints, 3 responses for correct 
answers, and 3 responses for incorrect answers in one-dimen- 
sional arrays. 


. Will ask a total of 8 questions. 

. Will randomly select each question. 

. Will not repeat any question. 

. Will give a random response if correct. 


82 Chapter Five Relax and Catch Your BASIC Breath 


f. Will give a random response for an incorrect answer and an 
appropriate hint on the first miss. 

g. Will give the correct answer on the second miss. 

h. Will give the number of correct answers at the conclusion of the 
interaction. 

Outline the statements needed to accomplish each of the above 

steps, then combine them into a program and test its execution. 
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Chapter Six 
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Show and Tell: Problem-Solving 
and Drill Examples 


“The opportunities of 
man are limited only by 
his imagination. But so 
few have imagination that 
there are ten thousand fid- 
dlers to one composer.” 
Charles F. Kettering 


“The most beaten paths 
are certainly the surest; 
but do not hope to scare 
up much game on them.” 
Andre Gide 


“All that glitters is not 
gold.” 
Shakespeare 


Think About This 

(for Fun) 

Read this sentence slowly: 
“Finished files are the 
result of years of scientific 
study combined with the 
experience of years.’ Now, 
once and only once, count 
out loud the F's (and f’s) 
in that sentence. How 
many are there? 


Sa ae ee ee ee ee De 
Think About This 
(Seriously) 

Should at least one course 
in “Computer Literacy’ 
be required for teacher 
certification in any area? 


6.1 Objectives 


For the successful completion of this chapter, you should be able to: 


1. Describe the purpose or application of instructional computing 
programs that are 
a. problem-solvers and 
b. drill-and-practice 
(Sections 6.3—6.4). 

2. Modify certain programs in this chapter to present information of 
your choosing. 

3. Describe in outline form the sequence of execution for each of the 
example programs or program fragments in this chapter. 


6.2 Some Example Programs and Programming StrateGies 


One of the important factors determining the success or failure of a 
given human endeavor is the amount of imagination (originality, 
creativity, innovation, etc.) that goes into it. This applies not only to 
education in general and the instructional process in particular, but 
also to the use of computers in instruction (in general) and the suc- 
cessful design and development of instructional computing programs 
(in particular). 

In Chapters 10 and 11, specific steps will be discussed in which 
imagination will have an opportunity to spring forth. Before these 
steps are discussed, however, examine a few sample programs and 
program fragments that give an introduction to strategies and tech- 
niques for five methods in which instructional computing may be 
applied. 

As these programs are examined, please keep in mind the quota- 
tions at the beginning of this chapter. These example programs are 
limited—by imagination and space. They are not meant to be the 
“well-beaten path” for those who choose to follow one. Also, they are 
certainly not meant to reflect the “gold”’ of instructional computing 
applications. However, they might plant an “imaginative seed” to 
allow one to reach heights of greater glory and reward in developing 
instructional computing programs. 

Many of the examples are intentionally trivial because their content 
is not the point to be made. Rather, the programs illustrate some of 
the strategies that may be used in designing instructional computing 
programs. The content is left to the individual author who might use 
or expand upon these strategies. 


a , 
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Although some of the examples may be related to a specific disci- 
pline, they should be considered only as “illustrative vehicles.” In 
many cases, the pedagogical strategy used in a program could be 
applied in general, even though the content may be specific. 


6.2.1 A Note About REM Statements 


REM statements are very important for documenting a program list- 
ing. If carefully used in the program, they allow the reader to follow 
the sequence of program “events” with greater ease; their use makes 
the program more readable to the eye. For this reason, REM state- 
ments are extensively used in the following example programs. Hope- 
fully, they will allow the user (particularly, the beginning user) to 
better visualize a program’s design and strategy. This extensive use 
of REM statements may give the impression that the example pro- 
grams are overly long and complicated. This is not the case. More 
than 50 percent of the statements for most of the programs are REM 
statements! If the REM statements were removed, most of the exam- 
ple programs would be less than 50 statements. Remember, then, that 
the REM statements are there to help explain the program as the 
listing is examined. 

It should also be mentioned that REM statements, just like any 
other statements, require space in the system’s memory. If the mem- 
ory available in a system is limited, and the program design is lengthy, 
judicious use of REM should be made. 

Finally, and perhaps foremost, keep in mind that some of these 
example programs may be modified and expanded for actual class 
use. The REM statements in the listings will help explain how to do 
this. 


6.3 Problem-Solving Applications 


The heaviest use of instructional computing to date is that of problem 
solving—writing computer programs to solve specific discipline- 
oriented problems. This particular application, for all practical 
purposes, has no limits. It could be finding the roots of a quadratic 
equation in mathematics, calculating lunar orbits in physics, solving 
gas-law problems in chemistry, analyzing voting behavior in sociol- 
ogy, determining circulation trends in library science, and so on. 
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PROGRAM 9 


6.3.1 PROGRAM 9: Compound Interest 


Most, if not all, problem-solving programs are based upon some for- 
mula or mathematical expression. Known parameters (elements) of 
the expression are input or read from data, and the solution to an 
unknown parameter is calculated and output. Program 9 illustrates 
a business-oriented problem related to the return on invested capital. 
The known parameters are: 


1. A given principal amount to be invested. 

2. A given interest rate. 

3. A given number of compounding periods per year. 
4. A given number of years. 


The future value is calculated and displayed, based on the following 
formula: 


F =A * (1 + (R/C)) fT (C#Y) 


where F = future value of the investment 
A = the amount to be invested 
R = the rate of interest (decimal) 
C = number of times the interest rate is compounded annually 
Y = number of years the principal is invested 


Remember, in the above formula and in statement 210 of the pro- 
gram, the ‘‘up arrow’ (1) is the system’s way to “‘raise to the power 
of.”’ 

Also note in the listing of the program: 


1. Statement 370 and the method used for printing a “divider’’ between 
each calculation. 

2. Statements 230-330 (in particular, statement 300), and the method 
used for “rounding’’ a value to two decimal places. 


RUN from disk and refer to the listing and run of Program 9. 


10 REM PROGRAM 9 DESCRIPTION 

70 REM 4 a ee 

30 REM PROBLEM SOLVING: THIS PROGRAM 
40 REM CALCULATES FUTURE VALUES OF 

90 REM INVESTMENTS. DEMOS ‘RVS ON’ 

60 REM AND ‘RVS OFF’ USE VIA CHRS$() 

70 REM SSeS eS =e Sse 

80 PRINT "9" 

80 PRINT " INVESTMENT FUTURE VALUES" 
100 PRINT 
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110 PRINT "WHAT IS THE AMOUNT INVESTED" $ 


120 INPUT A 

130 PRINT "AT WHAT INTEREST RATE (4%)"5 
140 INPUT R 

150 PRINT "TIMES COMPOUNDED PER YEAR"S 
160 INPUT C 

170 R = R/100 

180 PRINT "FOR HOW MANY YEARS" 


190 INPUT Y 

200 REM ===FORMULA FOR CALC=== 

210 F =A * (1 + (R / C)) f (C ¥ Y) 

220 PRINT : PRINT "ITS FUTURE VALUE WOULD BE"$ 


230 REM ===SET RVYS ON DISPLAY=== 
240 PRINT CHR#(18) 5 
750 REM MEE B2E2tn2retnznenrescs 


260 REM MULTIPLY THE VALUE OF F BY 1005 THEN 
270 REM GET THIS INTEGER VALUES THEN DIVIDE 
2B0 REM BY 100, THIS GIVES A VALUE TO 2 DECIMAL PLACES, 


790 REM eeseeerseeseeerse2 
300 PRINT "$"5 INT (F * 100) / 1005 
310 REM ===SET BACK TO NORMAL DISPLAY=== 


320 PRINT CHR$(146) 

330 PRINT "GIVING YOU A GAIN OF $" INT((F-A) * 100)/100 

340 PRINT : PRINT "CALCULATE ANOTHER (Y¥ OR NO)"S 

300 INPUT A$ 

360 IF Ag$<> "Y¥" THEN 380 

370 PRINT : FOR IT = 1 TO 40 : PRINT "#"5 : NEXT I : GOTO 100 
380 END 


RUN 
INVESTMENT FUTURE YALUES 


WHAT IS THE AMOUNT INVESTED?10000 
AT WHAT INTEREST RATE (4%)?12 
TIMES COMPOUNDED PER YEAR?4 

FOR HOW MANY YEARS?10 


ITS FUTURE YALUE WOULD BE $32620,37 
GIVING YOU A GAIN OF $22620,37 


CALCULATE ANOTHER (Y OR N)?Y 


EKEKEE EKER RHEE KEE EERE EEE EEE EERE EERE EE EEES 
WHAT IS THE AMOUNT INVESTED?10000 

AT WHAT INTEREST RATE (4) ?12 

TIMES COMPOUNDED PER YEAR?365 

FOR HOW MANY YEARS?10 
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ITS FUTURE VALUE WOULD BE $33194.63 
GIVING YOU A GAIN OF $23194,.63 


CALCULATE ANOTHER (Y OR N)?N 


6.3.2 PROGRAM 10: Statistics 


The formula for the mean of a set of scores is: 


Sum of scores 


Mean =—_—_- 
Number of scores 


The variance may be found from: 


Sum of the squared difference between the mean and score 
| Number of scores 
The standard deviation of a set of scores is: 


Variance = 


Standard deviation = square root of the variance 
The Z-score may be found from: 


i Difference of score from mean 
Standard Deviation 


A program may be written to solve for these unknowns, given a set of 
scores. (Beginning at statements 430—436 and ending at statements 
712-716, note how the output from this program may be directed to 
a printer. Note the method used to compute values to a number of 
decimal places in statements 580—590 and 700.) 

RUN from disk and refer to the listing and run of Program 10. 


PROGRAM 10 
10 REM PROGRAM 10 
20 REM =sscSslcsecasssss 
30 REM PROBLEM SOLVING: THIS PROGRAM 
40 REM CALCULATES MEAN: VARIANCE 
O20 REM STANDARD DEVIATION: AND 
GO REM 2-SCORES FOR A SET OF 
70 REM SCORES, 


80 REM SSecsiesecesscscse 

30 REM 

100 REM 2g tt Re 

110 REM VARIABLE DICTIONARY 

120 REM ide i 

130 REM OD - STANDARD DEVIATION 

140 REM (SQ, ROOT OF VARIANCE) 
190 REM Di() - DISTANCE OF A GIVEN 
160 REM SCORE FROM THE MEAN 
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170 
180 
190 
200 
210 
220 
230 
240 
200 
260 
270 
280 
290 
300 
310 
320 
330 
340 
30 
360 
370 
380 
390 
400 
410 
420 
430 
432 
434 
436 
440 
430 
450 
470 
480 
490 
200 
010 
220) 
330 
O40 
200 
360 
2/70 
080 
od Q 


600 
610 


REM M - MEAN OF SCORES 

REM S() - SCORES ENTERED VIA INPUT 
REM T - CUMULATIVE TOTAL OF SCORES 
REM Til - CUMULATIVE TOTAL OF THE SQUARE 
REM OF THE DISTANCE OF A GIVEN 
REM SCORE FROM THE MEAN 

REM VW - VARIANCE 

REM ee) 

REM 

DIM S5(100) +D1(100) 

PRINT "0"5 


PRINT "MEANs YARIANCE+ AND STANDARD" 
PRINT "DEYIATION OF A SET OF SCORES" 
PRINT 

PRINT "ENTER THE SCORES» TO STOP+" 
PRINT " ENTER ANY NEGATIVE NO." 

REM ===ROOM FOR 100 SCORES=== 

FOR [ = 1 TO 100 

PRINT "SCORE (NEGATIVE TO STOP)"; 


INPUT S(T) 

IF S(I) ¢< 0 THEN 420 

REM ===CUMULATIVE SCORE TOTAL=== 

ee ae 

NEAT I 

REM ===THE YALUE OF I MUST BE DECREASED BY 1=== 


IT=Tf-1 
PRINT "QO" : INPUT "WANT A PRINTER COPY (Y¥ OR N)"32 
IF 2% <2"Y" THEN 440 


OPEN 414 

cMD4 

PRINT "MEAN" "VAR" s"SD" 

PRINT "----")"---" "0" 

REM ===COMPUTE THE MEAN=== 

M=T/t 

FOR J = 1701 

REM ===GET DISTANCE OF EACH SCORE FROM MEAN=== 
Di(J) = StS) = M 

REM ===BUILD A CUMULATIVE TOTAL=== 

11 2Tt #-OLyf 2 

NEXT J 

REM ===NEXT COMPUTE YARIANCE=== 

eee ae 

REM ===COMPUTE STANDARD DEVIATION=== 

D = SOR (V) 

REM ===SET THE VALUES TO 2 DECIMAL PLACES=== 


PRINT INT (M *# 100) / 1005 INT (VY * 100) / 100% INT 
* 100) / 100 

PRINT 

PRINT " Z2-SCORES" 
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620 PRINT "SCORE" ,"2Z-SCORE" 

630 PRINT "----- Bye me el 

G40 FOR J = i TOI 

650 REM ee 

660 REM Z-SCORE IS THE DISTANCE OF A 

G70 REM GIVEN SCORE FROM THE MEAN, 

G80 REM DIVIDED BY THE STANDARD DEVIATION, 
690 REM Sse SsSsese ese se = 

700 PRINT S(J)»> INT (Di(J) / D * 100) / 100 
710 NEXT J 

712 IF Z% <> "¥" THEN 720 

714 PRINT#4 


716 CLOSE4 

720 PRINT : INPUT "ANALYZE ANOTHER SET (Y OR N)"524 
730 IF 2$ = "Y¥" THEN T = 0 : Ti = 0 : GOTO 300 

740 END 

RUN 


MEAN» YARTANCE AND STANDARD 
DEVIATION OF A SET OF SCORES 


ENTER THE SCORES, TO STOP? 
ENTER ANY NEGATIVE NO, 

SCORE (NEGATIVE TO STOP)?100 
SCORE (NEGATIVE TO STOP) ?90 
SCORE (NEGATIVE TO STOP) ?80 
SCORE (NEGATIVE TO STOP)?70 
SCORE (NEGATIVE TO STOP) ?50 
SCORE (NEGATIVE TO STOP)?-1 


MEAN VAR 5D 

80 200 14,14 
2-SCORES 

SCORE 2-SCORE 

100 1,41 

=) wv, 

80 Q 

70 -+/1 

60 -1,42 


ANALYZE ANOTHER SET (Y OR N)?Y 


ENTER THE SCORES. TQ STOP» 
ENTER ANY NEGATIVE NO, 
SCORE (NEGATIVE TO STOP)?98 
SCORE (NEGATIVE TO STOP)?78 
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SCORE (NEGATIVE TO STOP) ?67 
SCORE (NEGATIVE TO STOP) ?55 
SCORE (NEGATIVE TO STOP)?99 
SCORE (NEGATIVE TO STOP) ?100 
SCORE (NEGATIVE TO STOP) ?88 
SCORE (NEGATIVE TO STOP) ?90 
SCORE (NEGATIVE TO STOP)?-1 


MEAN VAR SD 

84,37 236.73 15,38 
Z2-SCORES 

SCORE Z-SCORE 

98 +88 

78 - 4? 

87 -1,13 

ee) -1,91 

99 095 

100 1,01 

88 s2a 

90) +36 


ANALYZE ANOTHER SET (Y OR N)?N 
BYE-BYE 


6.3.3 PROGRAM 11: File Maintenance 


One problem that teachers face is ease of access to, and updating of, 
student records. Program 11 is one approach to letting a computer 
program do most of the work (the grades still have to be entered 
somehow—via a keyboard in this case). This program is included here 
to serve more as a utility program that the reader can use than as an 
illustrative example, because some of the statements are more advanced 
than those of Chapters 1—5. These additional statements are: 


1. OPEN 
2. INPUT# 
3. PRINT# 
4. CLOSE 


These new statements are needed to access another file, called TESTS, 
in which the record information is kept. The concept of this file is the 
same as that of DATA-READ program statements. However, the data 
(student records) are not accessed from DATA statements in the pro- 
gram but from the file TESTS. Use of such files allows data to be 
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PROGRAM 11 


updated for use in a program without having to rewrite or add DATA 
statements in the body of the program. 

Refer to the REM statements in Program 11; we will briefly explain 
here how these new statements are used. 


1. The OPEN statement defines whether information is to be input 
(R) from the file or output (W) to the file, the number (n) to be 
assigned to the file (for our purposes, this will usually be 2), and 
the file name. (See statements 537-570.) 

2. The INPUT# n, <variable name> instructs the program to retrieve 
(read from the file) the next element of information and assign it 
to the defined variable. (See statements 670-740.) 

3. The PRINT# n, <variable name> instructs the program to place 
into the file (write to the file) the current value assigned to the 
defined variable. (See statements 1540-1590.) 

4. The CLOSE statement simply ‘‘closes” the file, indicating that 
information is no longer needed to be read from or written to it. 
(See statements 750 and 1600.) 


Note! The INPUT# and PRINT# statements refer to file “reading” and 
“writing.” Do not confuse them with the more familiar INPUT and 
PRINT statements; they are not the same. 

The file TESTS contains numerical data in the following sequence: 
nl,si,s2,...n2,s1,s2,...,etc. Here, nl is the number of scores for the 
first student name, s1,s2,...are the scores for that student, n2 is the 
number of scores for the second student name and s1,s2,... are the 
scores for that student, and so on. An example might look like: 
2 ,99,88,1,75,4,87,85,92,95 ... etc. 

Program 11 appears to be lengthy, but, again, this is due to exten- 
sive use of REM statements to help explain the program’s execution. 
The program may be easily modified for actual class use by changing 
the DIM and DATA statements to meet the user’s needs and running 
the program INITIALZ to erase the sample data in the file TESTS. 

RUN from disk and refer to the listing and run of Program 11. 


10 REM PROGRAM 11 

20 REM snes Sosss sss 

30 REM PROBLEM SOLVING: 

40 REM THIS PROGRAM IS AN EXAMPLE OF RECORD 
20 REM KEEPING USING SEQUENTIAL FILES, 

GO REM FIVE STUDENT NAMES ARE DATA ELEMENTS 
70 REM IN THE BODY OF THE PROGRAM, THE 

BO REM NUMBER OF SCORES FOR EACH STUDENT AND 
JO REM THEIR RESPECTIVE SCORES ARE STORED 
100 REM SEQUENTIALLY IN THE FILE "TESTS" 
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110 REM ON THE DISK. THE PROGRAM MAY BE USED 

120 REM FOR REAL STUDENT RECORD KEEPING BY 

130 REM CHANGING THE DIM AND DATA STATEMENTS 

140 REM ACCORDINGLY» AND THEN RUNNING THE PROGRAM 
150 REM "“INITIALZ" 


iSO REM 5 

170 REM VARIABLE DICTIONARY 

180 REM aaa Se ee ee eS 

180 REM N¢$ - STUDENT NAME SOUGHT (VIA INPUT) 
200 REM N¢$ - STUDENT NAMES FROM PROGRAM DATA 
210 REM STATEMENTS | 

220 REM N() - NUMBER OF SCORES FOR EACH 

230 REM STUDENT (FROM FILE "TESTS") 

240 REM P - NUMBER OF STUDENTS (FROM PROGRAM 
200 REM DATA STATEMENT) 

260 REM S(+) - TWO-DIM ARRAY: ROW IS STUDENT 
2/70 REM NUMBERs COLUMN IS NUMBER OF 

280 REM SCORES FOR THAT STUDENT 

790 REM Sesesessseees= 


300 REM PROGRAM EXAMPLE DIMENSIONS FOR A 

310 REM MAXIMUM OF 20 STUDENTS AND 8 SCORES. 
320 REM CHANGE DIM IF USED IN REAL CLASS 

330 REM Sceace == Ss=s === 

340 PRINT "QO": DIM $(20+8) »N$(20) »N(20) 

350 PRINT "CLASS SCORE KEEPING" 
360 REM — int eB 

370 REM DATA FOR NUMBER OF STUDENTS. CHANGE 
380 REM IF USED IN REAL CLASS. 

380 REM pa 

400 DATA 5 

410 REM BSSSssssssassss 

420 REM READ THE NUMBER OF STUDENTSSTHEN 

430 REM STORE THE NAMES IN NS( ), 

4400 REM fee ee 

450 READ P 

460 REM Setters nz2z2zzsssstes 

470 REM S STUDENT NAMES (CHANGE FOR REAL USE!) 
480 DATA "CANTOR" +"DARWIN" »"EDGAR" »"MCCARTHY" »"21TLLA" 
490 REM ce oecscscaseese se 

200 FOR I=i TO P 

310 READ N$(T) 

920 NEXT I 

S30 REM 8 ge 

340 REM FIRST OPEN THE FILE "TESTS" WHICH 

200 REM CONTAINS STUDENT SCORE DATA 

560 REM Sst ceseaasSs== 

270 OPEN 298+2e"O: TESTS +5 oR" 

580 REM Fh te 

390 REM THEN ISSUE THE "COMMANDS" TO 
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600 REM START READING THE DATA 

G10 REM FROM IT. DATA ARE STORED IN THE 

G20 REM SEQUENCE: (NUMBER OF SCORES FOR 

630 REM A STUDENT)» (EACH SCORE FOR 

G40 REM THAT STUDENT). N(I) IS THE NUMBER OF 
G50 REM SCORES$ S(IsJ) IS THE SCORE. 


G60 REM sss2=2s22s2ss225 

670 FOR I=1 TO P 

680 REM ===GET THE NUMBER OF SCORES FROM FILE=== 
690 INPUT#2, N(T) 

700 REM ===NOW GET EACH SCORE FROM FILE=== 


710 FOR J=1 TO N(T) 

720 INPUT#2+ S(T+J) 

730 NEXT J 

740 NEXT I 

750 CLOSE 2 

780 REM S2terenee2222s222 

790 REM FINISHED READING DATA 
800 REM Basaseeeeeezee2x2 

B10 PRINT 

820 PRINT "DO YOU WANT TO:" 
830 PRINT "i. ENTER NEW SCORES" 
840 PRINT "2. RETRIEVE SCORES" 
850 PRINT "3. STOP" 

855 PRINT:PRINT "(ENTER 1-3)"3 
860 INPUT C 

870 IF C=1 THEN 910 

880 IF C=2 THEN 910 

890 IF C=3 THEN 1250 

J00 GOTO 810 

910 PRINT 

320 PRINT "STUDENT’S NAME (OR STOP)"$ 
930 INPUT N¢& 

940 IF N$ = "STOP" THEN 810 
850 FOR IT=1 TO P 


J60 REM ===MATCH FOUND WITH NAMES?=== 
370 IF NS = N$(T) THEN 1010 

380 NEXT I 

J90 PRINT N& " IS NOT ON FILE!" 

1000 GOTO 920 

1010 IF C=i THEN 1190 

1070 REM Batters ts2stessesc 


1030 REM PRINT THE SCORES FOR THE STUDENT 

1040 REM SeseSeseese Sees 

1050 PRINT "SCORES FOR " N#(I) "3" 

1055 IF N(I) = 0 THEN PRINT "“**#* NO SCORES RECORDED ***" : 
GOTO 910 

1060 FOR J=1 TO N(I) 

1070 PRINT S(ITsJ)5"9"3 
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1080 REM == 
1090 T = T + 
1100 NEAT J 
1130 PRINT " AVE = "“sT/N(T) 

1140 T=0 

1141 PRINT : INPUT “NEED TO EDIT THESE SCORES (Y/N)"$32% 
1142 IF 2% <2"¥" THEN 910 

1143 FOR K = i TO N(T) 

1144 PRINT "EDIT THIS SCORE: " S(I+K) "(Y/N)"5 & INPUT 2S 
1145 IF 2% <> "Y" THEN 1147 

1146 INPUT "SCORE SHOULD BE WHAT VALUE"S5(1+K) 

1147 NEXT K 

1150 GOTO 1050 


=CUMULATIVE TOTAL FOR STUDENT=== 
S(TsJ) 


1160: REM ‘Seeseeeseesceoe= 

1170 REM ADD MORE SCORES FOR STUDENTS 

1180 REM #s2scessSsssese5 

1190 PRINT "NEXT SCORE FOR "sN$35 

1200 REM ===INCREASE THE SCORE COUNT BY 1=== 
1210 N(I)=N(I)+1 


1220 REM ===STORE NEW SCORE IN ARRAY=== 

1230 INPUT S(I+N(1I)) 

1240 GOTO 910 

1250 PRINT 

1292 PRINT 

1254 PRINT "USE PRINTER (Y OR N)"S5 

1260 INPUT 2$ 

1262 IF 2$<2"¥" THEN 1270 

1264 OPEN 4:4 

1266 CMD4 

1270 REM i 

1280 REM PRINT QUT CLASS RECORDS 

12950 REM i 

1300 FOR I = 1 7T0P 

1310 FOR K = 1 TO 20 : PRINT "/"$ + NEXT K : PRINT 

1320 PRINT "NAME: " N#(I) ¢: PRINT "SCORES: "5 

1325 IF N(I) = 0 THEN PRINT "*** NO SCORES RECORDED ***" ; 
GOTO 1450 

1330 FOR J=1 TO N(T) 

1340 PRINT S (I9J) "O"5 

1350 REM ===TOTALS FOR EACH STUDENT AND COMPLETE CLASS=== 

1360 T = T + S(I+J) : Tl = Ti + SIs) 

1370 NEXT J 

1410 PRINT +: PRINT "AVERAGE = " T/N(T) 

1420 REM ===CUMULATIVE TOTAL SCORE NUMBER=== 

1430 Si = Si + N(T) 

1440 T = 0 

1430 NEAT I 

1460 PRINT 

1470 PRINT "THE CLASS AVERAGE IS "SINT((T1I/S1) * 100)/100 
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1472 IF 2$<2"¥" THEN 1480 

1474 PRINT#4 

1476 CLOSE 4 

1480 REM i Se ge 

1490 REM WRITE ALL DATA WITH UPDATES 
1500 REM BACK TO THE FILE "TESTS", 
1510 REM See Sees eesceess= 

1920 OPEN 2:8+2+"@0:TESTS +S »W" 

1540 FOR I=1 TO P 

1550 PRINT#2sN(I) 

1560 FOR J=1 TO N(T) 

1570 PRINT#2»S(1 +J) 

1980 NEXT J 

1590 NEXT I 

1600 CLOSE 2 

1610 PRINT:PRINT " ¥%¥% DON E #¥%" 
1620 END 


RUN 

CLASS SCORE KEEPING 
DO YOU WANT TO: 

1, ENTER NEW SCORES 

2. RETRIEVE SCORES 

3+ STOP (ENTER 1-3) ?1 


STUDENT’S NAME (OR STOP) ?BERGEN 
BERGEN IS NOT ON FILE! 
STUDENT’S NAME (OR STOP) ?DARWIN 
NEXT SCORE FOR DARWIN?92 


STUDENT’S NAME (OR STOP)?STOP 
DO YOU WANT TO: 

1, ENTER NEW SCORES 

2, RETRIEVE SCORES 

3, STOP (ENTER 1-3)?2 


STUDENT’S NAME (OR STOP) ?DARWIN 
SCORES FOR DARWIN: 
J2 AVE = 92 


NEED TO EDIT THESE SCORES (Y/N)? ¥ 
EDIT THIS SCORE: 92 (Y/N) ?Y 

SCORE SHOULD BE WHAT VALUE?94 
SCORES FOR DARWIN: 

4 AVE = 94 


NEED TO EDIT THESE SCORES (Y/N)? N 
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STUDENT’S NAME (OR STOP) ?ZILLA 
SCORES FOR ZILLA: 
¥** NO SCORES RECORDED *** 


STUDENT’S NAME (OR STOP) ?STOP 
DO YOU WANT TO: 

1. ENTER NEW SCORES 

2+ RETRIEVE SCORES 

3. STOP (ENTER 1-3)71 


STUDENT’S NAME (OR STOP)?ZILLA 
NEXT SCORE FOR ZILLA?100 


STUDENT’S NAME (OR STOP) ?2ZILLA 
NEXT SCORE FOR ZILLA?90 


STUDENT’S NAME (OR STOP) ?EDGAR 
NEXT SCORE FOR EDGAR?80 


STUDENT’S NAME (OR STOP) ?MCCARTHY 
NEXT SCORE FOR MCCARTHY?70 


STUDENT’S NAME (OR STOP) ?5STOP 
DO YOU WANT TQ: 

1, ENTER NEW SCORES 

Z. RETRIEVE SCORES 

3, STOP (ENTER 1-3)73 


USE PRINTER (Y OR N)?N 


PILI TAAA TAA AA 
NAME: CANTOR 

SCORES: *** NO SCORES RECORDED **+* 
PILTITAT ATA AAA 
NAME: DARWIN 

SCORES: 94 

AVERAGE = 94 
PILTATAT AAT AAA AA AL 
NAME: EDGAR 

SCORES: 80 

AVERAGE = 80 
PELTTTTATA TAT AA AAAS 
NAME$ MCCARTHY 
SCORES: 70 

AVERAGE = 70 
PULTIATAA A AAA AA 
NAME: ZILLA 

SCORES: 100 90 
AVERAGE = 95 


ea ee ge 8 8S SSS SSS 060.0080 55 
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THE CLASS AVERAGE IS 86.8 
**¥% DON E 44% 


6.4 Drill-and-Practice Applications 


Drill-and-practice programs are second only in use to problem-solv- 
ing applications in instructional computing. This technique also has 
wide application in any area in which certain fundamental concepts 
require practice for mastery, such as multiplication tables, chemical 
nomenclature, Latin-English word root translations, state capitals, 
and so on. 

Drill-and-practice programs are generally very straightforward. 
An introduction, usually including examples, is given; drill questions 
are presented (either linearly or by random selection); answers are 
entered and checked for accuracy; appropriate feedback is given; the 
next question is asked; and, at the end of the program, some form of 
performance report is given and, perhaps, recorded. 


6.4.1 PROGRAM 12: Linear Selection of Drill Questions 


Drill programs can be easily constructed with DATA-READ and FOR- 
NEXT statements. If the questions are to be linear, the DATA consists 
of question-answer pairs on any chosen topic that are READ as part 
of a FOR-NEXT question sequence. A skeleton program might be: 


10 DATA C"Question 1"+"Answer I"s"Question 2"»5 ete] 
¢ 
+ 
4 

200 PRINT "CIntroductory statements» examples: etc,]" 
¢ 
4 


200 FOR I = 1 TO CNumber of questions to ask] 
910 READ 0%;A% 


320 PRINT 0% 5 

O30 INPUT R$ 

240 IF R$ = A$ THEN PRINT "EXCELLENT!" : C = C + 1 
: GOTO 550 


o44 PRINT "A CORRECT ANSWER IS "sAS% 

o0O0 NEAT I 

O50 PRINT "YOU ANSWERED "S5C5" QUESTIONS CORRECTLY!" 
070 END 


In the following program on state capitals (Program 12), note the 
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use of the RND(O) function to “flip a coin” to determine if the state 
or the capital is to be asked as a question (see statements 330—350). 
In the normal READ sequence (as defined in this program), Q$ (the 
question) contains the state, and A$ (the answer) contains the capital. 
If the question-answer values are to be reversed, the contents of the 
variables Q$ and A$ must be switched. This switch is accomplished 
in statements 380—460 by the use of a dummy variable, D§, to hold 
the original question (value of Q$) as the switching process is done. 

Again, please remember that by just changing the contents of the 
DATA statements, it is possible to make the program more than just 
a trivial drill on state capitals! 

RUN from disk and refer to the listing and run of Program 12. 


PROGRAM 12 


10 REM PROGRAM 12 

20 REM Sos Sse sees aaa 

30 REM DRILL AND PRACTICE: 

40 REM PROGRAM DEMOS THE LINEAR QUESTION- 
90 REM AND-ANSWER SEQUENCE YIA DATA-READ:» 
GO REM PLUS SWITCHING A QUESTION FOR AN 

70 REM ANSWER AND AN ANSWER FOR A QUESTION, 
BO REM 

90 REM Sooo - 42s 2c e Se S 

100 REM VARIABLE DICTIONARY 

110 REM S=Sessee255es55 

120 REM A - ANSWER (FROM DATA-READ) 

130 REM C - NUMBER CORRECT COUNTER 

140 REM DS - HOLDS ORIGINAL QUESTION IN 
150 REM QUESTION/ANSWER SWITCHING 

180 REM QO% - QUESTION (FROM DATA-READ) 

170 REM R$ - USER RESPONSE (YIA INPUT) 

i180 REM SsSceceSscssess ss 

190 DATA "TEXAS" +"AUSTIN" +"ARKANSAS" »"LITTLE ROCK" 
200 DATA "NEW MEXICO" +"SANTA FE" +"QKLAHOMA" 
210 DATA "OKLAHOMA CITY" +"QREGON" »"SALEM" 
220 PRINT "9" 


230 REM ===INTRODUCTION=== 
240 PRINT "STATE CAPITAL DRILL" 
290 PRINT 


260 PRINT "IF I GIVE THE STATEs YOU GIVE" 
270 PRINT "THE CAPITAL’ IF I GIVE THE" 
280 PRINT "CAPITALs YOU GIVE THE STATE." 
290 PRINT 

300 FOR I = 1 7T0 5 

310 READ 0%$;A% 

320 PRINT 
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330 REM ===’FLIP’ A COIN== 
S40 X = INT(2 * RND(O) + 1) 
300 IF X = 2 THEN 490 

360 REM ===D0O THE SWITCH IF X I§ 1=== 

370 REM Ron 

380 REM HERE’S THE SWITCH...STORE 9% IN 

400 REM D%+s THEN ASSIGN AS TO Q¢ (ANSWER 

410 REM IS NOW QUESTION). NEXT ASSIGN D# TO As 

420 REM (NOW THE ORIGINAL QUESTION IS THE ANSWER), 


430 REM sss2esse2222825 

440 D$ = Q$ 

430 Of = Ags 

460 AS = Ds 

470 REM ===SWITCH COMPLETED=== 

490 REM ===NOW ASK THE QUESTION=== 
4980 PRINT Q$$ 

200 INPUT R$ 


o10 IF R$ = A$ THEN 540 

220 PRINT "A CORRECT ANSWER IS "SA$ 
030 GOTO 560 

240 PRINT "GREAT!" 

O00 C=C+l 

060 NEXT I 

970 PRINT "YOU GOT "$C3" CORRECT!" 
280 END 


RUN 
STATE CAPITAL DRILL 


IF I GIVE THE STATE» YOU GIVE 
THE CAPITALS IF I GIVE THE 
CAPITAL+ YOU GIVE THE STATE, 


TEAASTAUSIN 
A CORRECT ANSWER IS AUSTIN 


ARKANSAS?LITTLE ROCK 
GREAT! 


NEW MEXICO?SANTA FE 
GREAT ! 


OKLAHOMA?NORMAN 
A CORRECT ANSWER IS OKLAHOMA CITY 


OREGON?SALEM 
GREAT! 
YOU GOT 3 CORRECT! 
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6.4.2 PROGRAM 13: Random Selection of Drill Questions 


If the questions are to be randomly selected from a bank of data ele- 
ments, the DATA are READ into one-dimensional arrays prior to pre- 
sentation of the question sequence. In simplest form, a skeleton pro- 
gram could be: 


10 DIM QO¢€Number of questions in bank] sA$( )e2¢ ) 
20 DATA C"Question 1"s"Answer L"s"Question 2"+ etc.] 


iSO FOR I = 1 TO (Number of questions in bank] 

170 READ Q$(1I) +AS(T) 

180 2(I) = 0 

190 NEXT I 

200 PRINT "CIntroductory statements+s examples, etc,J" 


500 FOR I = 1 TO CNo. of auestions to be asked] 

205 REM RANDOMLY SELECT A QUESTION NUMBER 

010 J = INTCCNo. of auestions in bank]#RND(O) + 1) 
3915 REM HAS THIS NUMBER ALREADY BEEN SELECTED? 


920 IF Z(J) = 1 THEN 510 

30 2a(J) = 1 

940 PRINT Q$(J)5 

209 INPUT R& 

060 IF R$ = A$(J) THEN PRINT "GREAT!" : C=C + 1 


: GOTO 570 
064 PRINT "A CORRECT ANSWER IS "“sAS(J) 
270 NEAT I 
S580 PRINT “YOU ANSWERED "i305" QUESTIONS CORRECTLY!" 
290 END 


Note in the example, Program 13, that only three (see statement 
350) of the five possible questions are randomly selected. In general, 
you should have approximately 25 percent more questions in the bank 
than are to be asked by random selection. This practice will reduce 
the time required for the program to find a question that has not been 
asked previously. 

RUN from disk and refer to the listing and run of Program 13. 


PROGRAM 13 
10 REM PROGRAM 13 
70 REM hae 
30 REM DRILL AND PRACTICE: 
40 REM PROGRAM DEMOS RANDOM SELECTION OF 
SO REM QUESTIONS/ANSWERS FROM ONE-DIM ARRAYS 
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GO REM WITHOUT REPEATING ANY QUESTION. 
70 REM SWITCHING OF QUES/ANSWER OCCURS AT RANDOM, 


80 REM i 

90 REM VARIABLE DICTIONARY 

100 REM i 

110 REM A#(J) - ANSWER TO QUESTION 

120 REM D$ - HOLDS QUESTION TEMPORARILY 
130 REM IN QUES/ANSWER SWITCHING 
140 REM J - RANDOM INTEGER VALUE 


150 REM Q$(J) - RANDOM QUESTION FROM LIST 
160 REM 2Z(J) - FLAG FOR SELECTED INTEGER 


170 REM mBasesesesersesccc 
180 DIM O$(5) +A$(5) +2(5) 
190 REM ===INTRODUCTION SECTION=== 


200 PRINT "Q" 

210 PRINT "STATE CAPITAL DRILL" 

220 PRINT 

260 PRINT "IF I GIVE THE STATE» YOU GIVE" 
270 PRINT "THE CAPITAL’ IF I GIVE THE" 

280 PRINT "CAPITAL+ YOU GIVE THE STATE." 
290 PRINT . 

300 REM ===STORE THE QUESTIONS/ANSWERS=== 
310 FOR I=1 TO 5 

320 READ 9$(1) sAS(T) 

330 NEXT I 

340 REM ===A6K ONLY 3 OF THE POSSIBLE 5=== 
350 FOR I=1 TO 3 

380 PRINT 


370 REM ===SELECT A QUESTION NUMBER=== 

380 J=INT(S*#RND(O) +1) 

390 REM ===HAS IT BEEN SELECTED BEFORE?=== 
400 IF 2(J)=1 THEN 380 

410 REM ===FLAG J AS A SELECTED NUMBER=== 
420 2(J)=1 

440 REM ===’FLIP’ A COIN=== 

430 X=INT(2*RND(0) +1) 

480 IF k=2 THEN 320 

470 REM ===DO THE SWITCH IF X IS 1i=== 


480 D$=0$ (J) 

490 O$(J)=A$(J) 

900 AS$(J)=DS : 

S10 REM ===ASK THE QUESTION=== 
O20 PRINT O8(J) 5 

O30 INPUT R$ 

O40 IF R$=A$(J) THEN 570 

390 PRINT "A CORRECT ANSWER IS "sA$(J) 
260 GOTO 590 

270 PRINT "GREAT!" 

080 C=C+1 
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990 NEXT I 

GOO PRINT "YOU GOT "C5" CORRECT!" 

6io END 

620 DATA "TEXAS" s"AUSTIN" »"ARKANSAS" s"LITTLE ROCK" 
G30 DATA "NEW MEXICOs"+SANTA FE" +"OKLAHOMA" 

640 DATA "OKLAHOMA CITY" +"QREGON" +"SALEM" 


RUN 
STATE CAPITAL DRILL 


IF I GIVE THE STATE+ YOU GIVE 
THE CAPITAL’ IF I GIVE THE 
CAPITAL» YOU GIVE THE STATE. 


TEXAS?PAUSTIN 
GREAT ! 


OREGON?SALEM 
GREAT ! 


SANTA FE?NEW JERSEY 
A CORRECT ANSWER IS NEW MEXICO 
YOU GOT 2 CORRECT! 


RUN 
STATE CAPITAL DRILL 


IF I GIVE THE STATE» YOU GIVE 
THE CAPITAL’ IF I GIVE THE 
CAPITAL; YOU GIVE THE STATE, 


NEW MEXICO?SANTA FE 
GREAT! 


LITTLE ROCK?ARKANSAS 
GREAT ! 


SALEM?POREGON 
GREAT ! 
YOU GOT 3 CORRECT! 


6.4.3 PROGRAM 14: User Options and Subroutines 


Use of GOSUB-RETURN routines also makes development of linear | 

drill-and-practice programs a simple task. The minimum needed could 

be: 

1. PRINT statements for the introduction, examples, and question 
content: 
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10 PRINT "CIntroductory statements)" 


4 
4 


100 PRINT "CPresenting examples]" 


4 
¢ 


4 


200 PRINT "CAsK question 1]" 
2. Assign a correct answer to a variable: 
210 A$="TAnswer to question 1]" 
3. Go to the answer checking subroutine: 
220 GOSUB 10000 
4. Present the next question following RETURN: 
230 PRINT "CASK auestion 2]" 
5. Assign answer to a variable: 
240 AS="TAnswer to auestion 2]" 
6. Go to the subroutine again: 


290 GOSUB 10000 


4 
¢ 
4 


etc. 
The subroutine allows for answer input: 
10000 INPUT R¢ 
Checks for accuracy: 
10010 IF R$=A%$ THEN 10040 
Presents a correct answer if missed: 
10020 PRINT "A CORRECT ANSWER IS "SAS 
Returns to ask the next question: 
10030 RETURN 
Gives a positive feedback if correct: 
10040 PRINT "VERY GOOD!" 
Increases a number correct counter by one: 


10050 C = C + 1 
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And returns to ask the next question: 
10060 RETURN 


These statements outline a general design sequence. But, to a user, 
a drill-and-practice program that just asks a question, says ‘““COR- 
RECT” or “INCORRECT,” and then asks the next question can be 
awfully boring. However, we can liven up the program by giving the 
user some options, such as: SKIP (a question), ANSWER (to a ques- 
tion), and STOP (at will). Of course, we can also randomize the pos- 
itive feedback and use some method for showing simple clues in ask- 
ing a question. Examples of these types of additions are shown in 
Program 14. 

Note in the program listing that any user response is first checked 
for a match with a defined “option,” then for a correct answer match. 
Otherwise, a requested option that was input by a user might be 
considered as only an incorrect answer to the question. (See state- 
ments 4010—4030.) Finally, note the use of four different subroutines: 
one for positioning (1000), one for pausing (2000), one for displaying 
options (3000), and one for response input and checking (4000). 

RUN from disk and refer to the listing and run of Program 14. 


PROGRAM 14 
10 REM PROGRAM 14 
70: REM <SSeseeesasseees 
30 REM DRILL AND PRACTICE: 
40 REM THIS PROGRAM DEMONSTRATES USE OF 
oO REM MULTIPLE SUBROUTINES. USER OPTIONS 
GO REM FOR PROGRAM CONTROL ARE ALSO SHOWN, 


70 REM 

BO REM Bort nmtznznszzzaete 

90 REM YARIABLE DICTIONARY 

1600 REM Sseeceeesass=ss= 

110 REM A$ - THE CORRECT ANSWER 

120 REM C - COUNTER FOR CORRECT ANSWERS 
150 REM P$()- LIST OF POSITIVE REINFORCERS 
160 REM R - A RANDOM NUMBER (4-1) 


170 REM R$ - USER‘’S RESONSE 
180 REM S$ - DASHES REPRESENTING CORRECT ANSWER 


190 REM ss222sese2er2222 
200 REM DIMENSION FEEDBACK LISTs ASSIGN VALUES 
210 Kew SSseeeesesess=s= 


220 DIM P#$(4) 

230 DATA "GREAT" +"WONDERFUL" »"HOT-DOG" s"THAT‘S IT" 
240 FOR [T = 1 TO 4 : READ PS(1I) : NEAT I 

750 REM sssssseeeeee2zee 

260 REM SUBROUTINE 1000 FOR SCREEN POSITIONING 

270 REM Sees Ss seo2e5 555 
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280 
280 
300 
310 
320 
330 
340 
390 
360 
370 
380 
390 
400 
410 
420 
430 
440 
430 
460 
470 
480 
490 
500 
020 
O30 
240 
oo0 
260 
070 
280 
280 
600 
610 
620 
530 
G40 
650 
660 
670 
960 
970 
990 
990 
999 
1000 
1010 
1999 
2000 
2010 


PRINT "0" : GOSUB 1000 

PRINT "A BIT QF HISTOR ¥" 
REM See seeeSeccesee 

REM SUBROUTINE 2000 FOR PAUSING 

REM SeeecsceSssceese=c 


RE -sSeescsescecnsc= 

REM SUBROUTINE 3000 FOR PRESENTING USER 

REM OPTIONS AT TOP OF SCREEN 

REM seeessceeceeeeoces 

GOSUB 3000 

GOSUB 1000 

REM Sees sees ec cesses 

REM SEQUENCE FOR ALL QUESTIONS IS: 

REM 1. PRINT(S) TQ ASK THE QUESTION 

REM 2+ CORRECT ANSWER ASSIGNED TO As 

REM 3+ DASHES REPRESENTING ANSWER ASSIGNED TO S$ 
REM 4, GOSUB 4000 FOR INPUT AND ANSWER CHECKING 
REM s=SS2ssseseeeeS= 

REM 

PRINT “AMERICA’S FIRST PRESIDENT WAS NAMED: " 

A$ = "GEORGE WASHINGTON" 

Re 5 A ac a arsed " 

KEM ‘sscSSseeeceecece 

REM SUBROUTINE 4000 FOR INPUT AND ANSWER CHECKING 
RE) -ssss2<s=s==s=225 

GOSUB 4000 

GOSUB 3000 

GOSUB 1000 

PRINT "AS A YOUNG LAD+ HE CHOPPED DOWN A:" 


A$ = "CHERRY TREE" : S$ = "------ ---- : 

GOSUB 4000 

GOSUB 3000 

GOSUB 1000 

PRINT “HOWEVERs HE WAS CAUGHT RED-HANDED (NO" 


PRINT "PUN INTENDED) AND COULD NOT TELL As" 
A$ = "LIE" 3 S$ ="---" 

GOSUB 4000 

REM ===ROOM FOR MORE QUESTIONS=== 

PRINT "0" : GOSUB 1000 

PRINT +"PERFORMANCE:" : PRINT 

PRINT "YOU ANSWERED" C "QUESTION(S)!" 
END 

REM ===SCREEN POSITIONING SUBROUTINE=== 
FOR [ = 1 TO 8 : PRINT =: NEXT I 

RETURN 

REM ===PAUSING SUBROUTINE=== 

FOR I = 1 TO 1000 : NEAT I 

RETURN 
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2999 REM ===OPTION DISPLAY SUBROUTINE=== 

3000 PRINT "0" 

3010 PRINT "INPUT OPTIONS: ‘ANSWER’ ‘SKIP’ ‘STOP’" 
3020 RETURN 

3999 REM ===INPUT AND CHECKING SUBROUTINE=== 
4000 PRINT TAB(12) S$ 

4010 PRINT TAB(10) : INPUT R& 

4020 IF R$ = "ANSWER" THEN 4070 

4030 IF R$ "SKIP" THEN 4170 

4040 IF R$ "STOP" THEN PRINT "9" : GOTO 960 
4050 IF R$ = AS THEN 4120 ; 
4050 PRINT 

4070 PRINT "A CORRECT ANSWER I5 " AS : PRINT 
4080 INPUT "PRESS RETURN TO CONTINUE"S2Z% : GOTO 4170 
AOS0 REM sssessscsssecscz 

4100 REM CORRECT ANSWER PROCEDURE 

ALLO: REM seh seeseaeccess 

4120 PRINT "0" : GOSUB 1000 

4130 R = INT(4 * RND(O) + 1) 

4140 PRINT TAB(15) PS(R)"I" 

41530 C=C +1 

4160 GOSUB 2000 

4170 RETURN 


RUN 
A BIT OF HISTORY 
INPUT OPTIONS: ‘ANSWER’ ‘SKIP’ ‘STOP’ 


AMERICA’S FIRST PRESIDENT WAS NAMED: 


TGEORGE WASHINGTON 


HOT-DOG! 
INPUT OPTIONS: ‘ANSWER’ ‘SKIP’ ‘STOP’ 


AS A YOUNG LAD+ HE CHOPPED DOWN A: 


TCHERRY TREE 


THAT ’S IT! 
INPUT OPTIONS: ‘ANSWER’ ‘SKIP’ ‘STOP’ 


HOWEVER: HE WAS CAUGHT RED-HANDED (NO 
PUN INTENDED) AND COULD NOT TELL A: 


TFIB 
A CORRECT ANSWER IS LIE 


PRESS RETURN TO CONTINUE 
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PROGRAM 17 


4 


+ 


PERFORMANCE: 


YOU ANSWERED 2 QUESTION(S)! 


6.4.4 PROGRAM 13: Random Generation of Question 


PARAMETERS 


For drill programs using numerical values, the RND(0) function may 
be used to ensure that no two RUNs of the program are identical. 
That is, although the text of the problem may be the same, the param- 
eters are randomly generated so that each problem appears unique. 
As an example, consider Program 15, which gives the base and height 


of a triangle and asks for the area (Area = 1/2 base x height). 


Note the method used for showing the correct solution to problems 
that are missed (see statements 520-560). 


RUN from disk and refer to the listing and run of Program 15. 


10 
20 
30 
40 
50 
GO 
70 
BQ 
90 
100 
110 
120 
130 
140 
130 
150 
170 
180 
190 
200 
210 
220 
230 
240 
290 
260 
270 


REM PROGRAM 15 

REM See see seeeesss 

REM DRILL AND PRACTICE 

REM PROGRAM DEMOS USER CONTROL OF THE 

REM NUMBER OF QUESTIONS TO BE ASKED 

REM AND USE OF RND(O) TO RANDOMLY 

REM GENERATE NUMBERS WITHIN LIMITS FOR 

REM USE IN THE TEXT OF A QUESTION, 

REM THE PROGRAM ALSO COMPUTES A PERCENTAGE 
REM SCORE FOR THE NUMBER OF CORRECT ANSWERS. 
REM —a— i 
REM VARIABLE DICTIONAR’ 

REM SSSsSsecso22 => 

REM A - AREA OF TRIANGLE 

REM B - RANDOMLY SELECTED YALUE FOR 
REM THE ‘BASE’ OF A TRIANGLE 
REM H - RANDOMLY SELECTED VALUE FOR 
REM THE ‘HEIGHT’ OF A TRIANGLE 
REM P - NUMBER OF PROBLEMS SELECTED BY USER 
REM 5 - USER ANSWER (YIA INPUT) 

REM Sferecscrsssss= 

REM 

PRINT "Q" 

PRINTs "DRILL ON CALCULATING THE" 


PRINT» "AREA OF A TRIANGLE" 
PRINT 


PRINT "HOW MANY PROBLEMS DO YOU WANT (1-10)"5 
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280 INPUT P 

290 IF Pei THEN 270 

300 IF Péii THEN 350 

310 PRINT "THAT’S TOO MANY..+KEEP" 


320 PRINT " IT TO 10 OR LESS." 

330 GOTO 260 

340 REM ===USER GOT TO DEFINE THE VALUE OF P (WITHIN LIMITS) 
350 FOR T=i TO P 

360 PRINT 

370 REM — 


380 REM GET RANDOM VALUES FOR THE BASE AND 
390 REM HEIGHT AND CALCULATE THE AREA. 

400 REM eee 

410 B = INT(10 * RND(O) + 1) #5 

420 H INT(iS * RND(QO) + 1) * 10 

430 A=,5 * B *H 

440 PRINT "THE BASE OF A TRIANGLE" 

450 PRINT "IS" B "INCHES AND ITS HEIGHT" 
460 PRINT "IS" H "INCHES. WHAT I5" 

470 PRINT “ITS AREA IN SQUARE INCHES"; 


480 INPUT § 

490 REM ===2I15 INPUT CORRECT ANSWER*?=== 
200 IF A = § THEN 370 

210 PRINT 


520 PRINT "NO+ AREA = 1/2 x BASE x HEIGHT" 

S30 PRINT : PRINT "= 1/2 x "B " x "H 

S40 PRINT : PRINT "=" A "SQUARE INCHES" 

550 REM ===USER CONTROLS WHEN TO GO=== 

550 PRINT : INPUT "PRESS RETURN TO CONTINUE"$2% : GOTO 610 
970 PRINT "O":FOR J=i TO 2i:PRINT:NEAT J 

580 PRINT»"P E RF EC T!":FOR J=i1 TO SOO:NEAT J 
290 C=C +1 

GOO REM ===CLEAR THE SCREEN THEN GO=== 

Gio PRINT "0" 

620 NEXT I 

630 FOR J=1 TO 11:PRINT:NEXT J 

G40 PRINT+"YOU WERE ASKED" P "PROBLEMS." 

G50 PRINT : PRINT+"YOU GOT" C "CORRECT." 

G60 REM ===COMPUTE THE PERCENTAGE SCORE=== 

670 § = INT((C * 100 / P) * 10)/10 

G80 PRINT : PRINTs "THAT’S" S "PERCENT!" 

690 END 


RUN 
DRILL ON CALCULATING THE 
AREA OF A TRIANGLE 


HOW MANY PROBLEMS DO YOU WANT 1-10)73 
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THE BASE OF A TRIANGLE IS 

40 INCHES AND ITS HEIGHT 

IS 120 INCHES. WHAT I5 

ITS AREA IN SQUARE INCHES?4800 


NO+ AREA = 1/2 BASE x HEIGHT 
= 1/2 x 40 x 120 

= 2400 SQUARE INCHES 

PRESS RETURN TO CONTINUE? 


THE BASE OF A TRIANGLE [5 

> INCHES AND ITS HEIGHT 

I§ 130 INCHES. WHAT I5 

ITS AREA IN SQUARE INCHES?325 


PER FBG. Tt 


THE BASE OF A TRIANGLE IS 

40 INCHES AND ITS HEIGHT 

IS 20 INCHES. WHAT I5 

ITS AREA IN SQUARE INCHES?400 


PERFECT! 


YOU WERE ASKED 3 PROBLEMS. 
YOU GOT 2 CORRECT, 
THAT’S 66.6 PERCENT! 


6.3 Posers and Problems 


1. Following the display of the Z-scores in Program 10, make addi- 
tions that will produce a display (and, optionally, a printout) of 
the ‘‘count” of each score entered. That is, if four out of all the 
scores entered were 100 and two scores were 91, the program will 


display: 
Score = 100 Count = 4 
Score = 91. Count = 2 
4 4 
+ 4 
etc, etc, 


2. Modify Program 13 to randomly select 10 of 15 possible questions 
(with appropriate answers) of your own choosing. (Remember, the 
question and answer may be switched by the program.) 

3. Modify Program 14 to ask any five questions of your choosing. 
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Simulation, and Testing Examples 


t 


“You may speak of love 
and tenderness and pas- 
sion, but REAL ecstasy is 
discovering you DID 
make a backup copy of 
your program afterall.” 
paraphrased from 
Blackie Sherrod 


“After a little experience, a 
person realizes that he or 
she can go to bed at mid- 
night and seldom miss 
anything.’’ 

Tri-County Record 


[Remember the above 
when you get to the 
“Think About This (for 
Fun)” in Chapter 9.] 


Think About This 

(for Fun) 

In going over his books 
one day, a bookkeeper for 
a toy company noticed 


that the word “balloon” 


had two sets of double let- 
ters, one following the 
other. Someplace on this 
page there is a word that 
has three sets of double 
letters, one right after the 
other. Can you find it? 


ay 
Think About This 
(Seriously) 

Should teachers have the 
ability to develop instruc- 
tional computing mate- 
rials for their own use in 
the classroom, or should 
most rely only on ‘‘com- 
mercially available” 
software? 


7.1 Objectives 


For the successful completion of this chapter, you should be able to: 


1. Describe the purpose and application of instructional computing 
programs that are 
a. tutorial (dialog) 
b. simulations, and 
c. testing (Sections 7.2—7.4). 

2. Modify certain programs in this chapter to present information of 
your choosing. 

3. Describe in outline form the sequence of execution of each of the 
example programs in this chapter. 


7.2 Tutorial (Dialog) Applications 


An extension of the drill-and-practice application allows for more 
feedback to the user whenever difficulty is indicated. This “tutorial 
dialog’’ could assist the user in locating the specific cause of errors, 
provide hints, or, if needed, branch to a separate section for detailed 
review. 

From an instructional computing standpoint, programs of this type 
are often the most complicated to design, are time-consuming in 
development, and generally go through many stages of testing and 
revision. The reason is that these programs (if carefully and thor- 
oughly designed) must anticipate a variety of user's responses and 
treat them accordingly: Is the user’s answer partly correct? Has the 
user indicated difficulty to the extent that a branch for review is needed? 
If the user stops in the middle of an interaction, will the program start 
again at that point for the user? Should the program record the ques- 
tions/responses for questions missed? Because of these, and other 
extensive design, development, and evaluation considerations, thor- 
ough tutorial dialog programs are not widely available. 

The examples that follow are relatively short programs that illus- 
trate some programming strategies for introducing more of a ‘dialog’ 
‘into the interaction. They are by no means examples of instructional 
computing programs with extensive tutorial applications. However, 
they do show some of the techniques that may be used in programs 
of this type. 


7.2.1 PROGRAM 16: Providing Hints 


Providing hints is a simple example of a tutorial program. These hints 
may be assigned to variables in the same fashion as questions and 
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answers were in Program 14. In the following program, a counter is 
used so that (arbitrarily) two hints are given before the correct answer 
is given. (See statements 4060—4080.) An additional option, HINT, is 
incorporated into the program. Note that different counters are used 
for questions answered correctly on the first try, after one hint, or 
after two hints. (See statements 4160—4180.) 

RUN from disk and refer to the listing and run of Program 16. 


PROGRAM 16 
10 REM PROGRAM 16 
20 REM S22 S = SSeS -05 
30 REM TUTORIAL (HINTS GIVEN) 
40 REM THIS PROGRAM DEMONSTRATES USE OF 
20 REM MULTIPLE SUBROUTINES: HINTS» AND COUNTERS. 
GO REM USER OPTIONS FOR PROGRAM CONTROL 
70 REM ARE ALSO SHOWN. 
80 REM RBaeensorssrscssresrss 
90 REM VARIABLE DICTIONARY 
100: REM @seseecacscccscss 
110 REM AS - THE CORRECT ANSWER 
120 REM Ci - COUNTER FOR CORRECT iST TRY 
130 REM C2 - COUNTER FOR CORRECT 2ND TRY 
132 REM C3 - COUNTER FOR CORRECT 3RD TRY 
140 REM Hi$+sH2% - HINTS GIVEN TO MISSED QUESTIONS 
150 REM P$()- LIST OF POSITIVE REINFORCERS 
iSO REM R - A RANDOM NUMBER (4-1) 
170 REM R$ - USER’S RESPONSE 
180 REM S$ - DASHES REPRESENTING CORRECT ANSWER 
ISO REM SeSccececacscacss 
200 REM DIMENSION FEEDBACK LIST: ASSIGN VALUES 
210 REM seers sesesccce 
220 DIM P$(4) 
230 DATA "GREAT" »"WONDERFUL" »"HOT-DOG"»"THAT’S IT" 
240 FOR I = 1 TO 4 : READ P#(I) +: NEXT I 
2O0 RE) Ses e8ees2eeces= 
260 REM SUBROUTINE 1000 FOR SCREEN POSITIONING 
2/0 REM Sseeeeseseoceecs 
280 PRINT "9" : GOSUB 1000 
290 PRINT "A BIT QF HISTOR Y" 
S00 REM S6eSssee2ccscoas 
310 REM SUBROUTINE 2000 FOR PAUSING 
oc KEM. s=See2ceceeccc- es 
330 GOSUB 2000 
ou0 IREM SSeeeeeseSeseo> 
350 REM SUBROUTINE 3000 FOR PRESENTING USER 
360 REM OPTIONS AT TOP OF SCREEN 
370° REV SS See2 SSS ese ce 
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380 GOSUB 3000 

390 GOSUB 1000 

A400 REM sssssssssses525 

410 REM SEQUENCE FOR ALL QUESTIONS I5: 

420 REM 1. PRINT(S) TO ASK THE QUESTION 

430 REM 2. CORRECT ANSWER ASSIGNED TO A$ 

440 REM 3. DASHES REPRESENTING ANSWER ASSIGNED TO 5% 
450 REM 4, HINTS ASSIGNED TO H1$ ,H2$ 

460 REM 2+» GOSUB 4000 FOR INPUT AND ANSWER CHECKING 
470 REM sssss2ssesseee22 

480 PRINT "AMERICA’S FIRST PRESIDENT WAS NAMED: " 

490 A$ = "GEORGE WASHINGTON" 

500 S$ = “edeeece eocesoese n 

O10 His = "A DOLLAR FOR A SCHOLAR" : H2$ = "GEORGIE-PORGIE" 
SO REM S2sessesecesess | 

230 REM SUBROUTINE 4000 FOR INPUT AND ANSWER CHECKING 
S40 REM sseeeseceeeees= 

950 GOSUB 4000 

260 GOSUB 3000 

270 GOSUB 1000 

280 PRINT "AS A YOUNG LAD» HE CHOPPED DOWN A:" 

290 A$ = "CHERRY TREE" : S$ = "-----. ---- . 

992 Hi$ = "PITS" : H2$ = "PIES" 

GOO GOSUB 4000 

610 GOSUB 3000 

620 GOSUB 1000 

G30 PRINT "HOWEVER, HE WAS CAUGHT RED-HANDED (NO" 

G40 PRINT "PUN INTENDED) AND COULD NOT TELL A:" 

G50 A$ = "LIE" : S$ = "---" 

G32 H1i$ = "FIB" : H2$ = "-?-% LAY+ LAID" 

660 GOSUB 4000 

G70 REM ===ROOM FOR MORE QUESTIONS===— 

JGO PRINT "9" : GOSUB 1000 

962 PRINT "YOU ANSWERED" Ci + C2 + C3 "QUESTION(S)." : PRINT 
970 PRINT "YOU ANSWERED" Ci "ON THE FIRST TRY." : PRINT 
J80 PRINT "YOU ANSWERED" C2 "ON THE SECOND TRY." : PRINT 
J82 PRINT "YOU ANSWERED" C3 "ON THE THIRD TRY." 

990 END 

999 REM ===SCREEN POSITIONING SUBROUTINE=== 

1000 FOR I = 1 TO 8 = PRINT +: NEXT I 

1010 RETURN 

1999 REM ===PAUSING SUBROUTINE=== 

2000 FOR I = 1 TO 1000 : NEXT I 

2010 RETURN 

2999 REM ===QPTION DISPLAY SUBROUTINE=== 

3000 PRINT "0" 

3010 PRINT+"INPUT OPTIONS: " 

3020 PRINT "‘HINT’ ‘ANSWER’ ‘SKIP’ ‘STOP’" 

3030 RETURN 
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3999 REM ===INPUT AND CHECKING SUBROUTINE 
4000 PRINT TAB(12) S$ 

4010 PRINT TAB(10) +: INPUT R$ 

4012 IF R$ = "HINT" THEN 4060 

4020 IF R$ = "ANSWER" THEN 4070 

4030 IF R$ = "SKIP" THEN 4190 

4040 IF R$ = "STOP" THEN PRINT "Q" : GOTO 960 

4050 IF R$ = AS THEN 4120 

4060 PRINT : F = F + 1 : ON F GOTO 4062,4064,4070 
4062 PRINT "HERE’S A HINT: " H1i$ : GOTO 4ooo 

4064 PRINT "HERE’S ANOTHER HINT: " H2%$ : GOTO 4ooo 
4070 PRINT "A CORRECT ANSWER IS " AS =: PRINT 

4080 INPUT "PRESS RETURN TO CONTINUE"3Z% : GOTO 4190 


4090 REM ss=ssss2s2222=2 
4100 REM CORRECT ANSWER PROCEDURE 
AT1:O. REM. sSfSssseececces 


4120 PRINT "0" : GOSUB 1000 
4130 R = INT(4 * RND(O) + 1) 

4140 PRINT TAB(i5) P#(R)"E" 

4150 GOSUB 27000 

4i60 IF F = © THEN Ci = Ci + 1 

4170 IF F = 1 THEN C2 = C2 + 1 

4180 IF F = 2 THEN C3 = C3 + 1 

4190 REM ===SET F TO ZERO BEFORE NEXT QUESTION=== 
4200 F = 0 : RETURN 


RUN 
A BIT OF HISTORY 


INPUT OPTIONS: 
‘HINT’ ‘ANSWER’ ‘SKIP’ ‘STOP’ 


AMERICA’S FIRST PRESIDENT WAS NAMED: 


THINT | 
HERE’S A HINT: A DOLLAR FOR A SCHOLAR 


?JACSON 
HERE’S ANOTHER HINT: GEORGIE-PORGIE 


TGEORGE WASHINGTON 
THAT‘’S IT! 
INPUT OPTIONS: 
‘HINT’ ‘ANSWER’ ‘SKIP’ ‘STOP’ 


AS A YOUNG LAD» HE CHOPPED DOWN A: 
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PROGRAM 17 


?PSKIP 


INPUT OPTIONS: 
"HINT’ ‘ANSWER’ ‘SKIP’ ‘STOP’ 
HOWEVER» HE WAS CAUGHT RED-HANDED (NO 
PUN INTENDED) AND COULD NOT TELL A: 
TSTORY 
HERE’S A HINT: FIB 


?LIE 
WONDERFUL ! 


YOU ANSWERED 2 QUESTION(S). 

YOU ANSWERED 0 ON THE FIRST TRY, 
YOU ANSWERED 1 ON THE SECOND TRY, 
YOU ANSWERED 1 ON THE THIRD TRY. 


7.2.2 PROGRAM 17: Review of Missed Questions 


Another approach for providing hints is to assign questions, answers, 
and hints to one-dimensional arrays. Questions may be randomly 
selected and the appropriate hint given on the first miss. Program 17 
follows this approach, but also ‘‘flags’”’ each question missed by stor- 
ing the user’s incorrect response in another array (see statements 554— 
560). At the conclusion of the program, a review of missed questions 
can be provided by checking this array to see if it contains a user’s 


response (see statements 760-810). 


Also note the method to determine if all questions were answered 
correctly on the first try (statement 690) and the method for comput- 


ing a percentage score (statement 830). 


RUN from disk and refer to the listing and run of Program 17. 


10 REM PROGRAM 17 

20 REM 23S eS 6 ee See 

30 REM TUTORIAL (HINTS GIVEN) 

40 REM THIS PROGRAM DEMONSTRATES STORING 

29 REM QUESTIONS» ANSWERS» AND HINTS IN 

GO REM ONE-DIMENSIONAL ARRAYS (LISTS), 

70 REM QUESTIONS ARE RANDOMLY SELECTED FROM 
80 REM THE LIST WITHOUT REPETITION, 

90 REM THE USER’S RESPONSE TO A MISSED 

100 REM QUESTION IS STORED IN ANOTHER ARRAY 
110 REM FOR REVIEW AT THE END OF THE SESSION, 
120 ‘RE seesesecececses 

130 REM VARIABLE DICTIONARY 


7.2 Tutorial (Dialog) Applications 


117 


150 REM A$() - A LIST OF ANSWERS 


150 REM C - COUNTER FOR CORRECT 1ST TRY 

170 REM C$() - A LIST OF POSITIVE FEEDBACK 

180 REM F - FLAG INDICATING A MISSED QUESTION 
190 REM H$() - A LIST OF HINTS 

200 REM Q - THE NUMBER OF QUESTIONS PRESENTED 
210 REM R - A RANDOM NUMBER (3-1) 

212 REM R$ - THE USER‘’S RESPONSE 


220 REM S$() - A LIST OF INCORRECT RESPONSES 
230 REM W$() - A LIST OF FEEDBACK FOR INCORRECT ANSWERS 


240 REM X - A RANDOM NUMBER (10-1) 

200 REM FOR QUESTION SELECTION 

280 REM Z(X) - FLAG FOR A SELECTED QUESTION IN THE LIST 
270 REM 

280 REM ===DIMENSION ALL ARRAYS=== 

290 REM 

300 DIM 9$(10) sA$(10) sHE(10) +5$(10) 2°10) »0$(3) »NS(3) 
310 REM 

320 REM ===STORE FEEDBACK LISTS=== 

330 REM 

340 FOR I = 1 TO 3: : READ CS$(1) sWS(1) : NEXT I 

390 REM 

360 REM ===STORE QUESTION, ANSWER» HINT IN LISTS=== 
370 REM 

380 FOR I = 1 TO 10 : READ Q$(1) sAS(I) +HS(1) : NEXT I 
390 REM 

400 REM ===SHOW TITLE (INTRODUCTION; ETC.)=== 

410 REM 


420 GOSUB 35000 

430 PRINT» "FUN AND GAMES" 

440 GOSUB 6000 

4390 GOSUB 3000 

460 PRINT+ "I HAVE 10 QUESTIONS." : PRINT» 
470 INPUT "HOW MANY WOULD YOU LIKE";Q 

480 IF 9 < 1 OR QO > 10 THEN 450 

490 FOR P = 1 T0 Q 7 

900 GOSUB 5000 

O10 K = INT(10 * RND(O) + 1) 


v2Q IF 2(X%) = 1 THEN 910 

v2e REM 

O24 REM ===FLAG LIST ITEMs GET RANDOM VALUE FOR FEEDBACK=== 
026 REM 

O30 2(K) = 1: R = INT(3 * RND(O) + 1) 

O40 PRINT : PRINT O$(4)5 : INPUT R$ 

OOO IF RS = AS(KX) THEN 590 

yoe REM 

OO4 REM ===SASSIGN INCORRECT ANSWER TO S$(X)==5 

006 REM 
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560 S$(X) = R$ 

S62 IF F = 0 THEN F = 1 : PRINT WS(R) : PRINT#H$(X) +: GOTO 
040 

570 PRINT : PRINT "A CORRECT ANSWER IS:" : PRINTs A$(X) 

580 PRINT : INPUT "PRESS RETURN TO CONTINUE"3Z% : GOTO 630 

582 REM 

584 REM ===CORRECT ANSWER GIYEN PROCEDURE=== 

586 REM 

590 GOSUB 5000 : PRINT» C#(R)"I" 

G10 IF F = 0 THENC = C + 1 

620 GOSUB 6000 

630 F = 0 

G40 NEXT P 

650 REM 

GGO REM ===SHOW QUESTIONS MISSED IF ANY=== 

670 REM 

680 GOSUB 5000 

690 IF C = Q THEN PRINT»"EXCELLENT WORK!" : PRINT : GOTO 830 

700 PRINT»"HERE’S A REVIEW..." : GOSUB 6000 

710 FOR J = 1 TO 10 


720 REM | 
730 REM ===IF S$(J) IS NULL ("") THEN OK=== 
740 REM 

780 IF S$(J) = "" THEN 810 


760 GOSUB 5000 

770 PRINT+"QUESTION" =: PRINT Q$(J) : PRINT 

780 PRINT+"YOUR ANSWER" =: PRINT+S#(J) +: PRINT 

790 PRINT+"A CORRECT ANSWER" : PRINTsAS$(J) =: PRINT 
BOO INPUT "PRESS RETURN TO CONTINUE..."52% 

810 NEXT J 

820 GOSUB 5000 

830 PRINT "YOUR SCORE IS" INT((C * 100/09) * 10)/10 


"PERCENT!" 
B40 END 
850 REM 
860 REM ===DATA FOR FEEDBACK=== 
870 REM 


880 DATA "HOT-DOGGIES"+"NO» LET ME HELP" 
890 DATA "SWELL" +"WILL THIS HELP:" 
JOO DATA "YOU GOT IT"s"HERE’S A HINT" 


910 REM 

920 REM ===DATA FOR QUESTION: ANSWER» HINT=== 

930 REM 

940 DATA "LAST NAME OF ‘BOLERO’ COMPOSER" s"RAVEL" +"SWEATERS 
CAN UN-" 

950 DATA "LONGEST RIVER IN THE WORLD" +"NILE"+"ASP ME NO 
QUESTIONS" 


350 DATA "LARGEST RIVER IN THE WORLD"»"AMAZON" »"BIG-MOMMA!" 
370 DATA "THIS PROGRAM IS WRITTEN IN"+"BASIC" »"FUNDAMENTAL" 


i hs ee 
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990 DATA "MONTH OF SHORTEST DAY IN TEXAS" »"DECEMBER"™ +"MAKE 


MERRY" 
990 DATA "DANIEL WAS PLACED IN THE LION’S"s"DEN" s"FAMILY 
ROOM" 
1000 DATA "LARGEST OF THE GREAT LAKES" +"SUPERTIOR" »"SUPER- 
BIG" 


1010 DATA "MARY HAD A LITTLE"+"LAMB"+"FLEECED ON THIS ONE?" 

1020 DATA "39.37 INCHES = ONE"s"METER"+"IS YOURS RUNNING?" 

1030 DATA "JACK AND JILL WENT UP THE" »"HILL"+"NO MOUNTAIN 
THIS" 

4997 REM 

4998 REM ===POSITIONING SUBROUTINE=== 

4999 REM 

5000 PRINT "0" : FOR I = 1 to 9 : PRINT : NEAT I 

2910 RETURN 

2997 REM 

2998 REM ===PAUSING SUBROUTINE=== 

9999 REM 

GO0O FOR I = 1 TO 500 : NEAT I 

6010 RETURN 


RUN 
FUN AND GAMES 


I HAYE 10 QUESTIONS. 
HOW MANY WOULD YOU LIKE?4 


COLIATH’S SLAYER?DAVID 
HOT-DOGGIES! 

MONTH OF THE LONGEST DAY?DECEMBER 

WHOA NOW,...! HERE’S A HINT: 

ASSUME N. HEMISPHERE 

MONTH OF THE LONGEST DAY?JUNE 
HOT-DOGGIES! 

WHICH IS LONGER: METER OR YARD?METER 
GREAT! 

LONGEST RIVER IN THE WORLD?AMAZON 

WHOA NOW...! HERE’S A HINT: 

& SHADE OF GREEN 

LONGEST RIVER IN THE WORLD?MISSISSIPPI 

A CORRECT ANSWER IS: NILE 


PRESS RETURN TO CONTINUE 
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YOU ANSWERED 2 CORRECTLY 
ON THE FIRST TRY... 


HERE’S A REVIEW... 


QUESTION: 
MONTH OF THE LONGEST DAY 


YOUR ANSWER: 
DECEMBER 


A CORRECT ANSWER: 
JUNE 


PRESS RETURN TO CONTINUE 


QUESTION: 
LONGEST RIVER IN THE WORLD 


YOUR ANSWER: 
AMAZON 


A CORRECT ANSWER: 
NILE 


PRESS RETURN TO CONTINUE 


YOUR SCORE IS 50 %! 


7.2.3 PROGRAM 18: Random Selection of “Lengthy” 
Questions 


Program 17 demonstrated one approach to randomly selecting ques- 
tions from an array. However, all of its questions were “one-liners.” 
It is often the case that one line of output is not sufficient for pre- 
senting information, examples, and so forth before asking a given 
question. 

Program 16 demonstrated one approach to asking linear questions, 
providing hints, and so on, where more than one line of output was 
possible. But how can we randomly select the questions? 

One technique is simply to combine the strategies of these two pro- 
grams. That is, we will use as many PRINT statements as needed to 
present the question, then assign hints and the correct answer(s) to 
variable(s), but have all possible questions within a FOR-NEXT loop 
(see statements 500-5110). Within the loop, a random number gen-. 
erator (statement 520) will be used to give some number within the 
range of possible questions available. Random numbers selected will 
be “flagged” to avoid repetition as we’ve done before. Using these 


a a a ee 
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random numbers, an ON-GOTO (statement 570) will transfer execu- 
tion to the appropriate line number that begins presentation of the 
question, assigns hints and answers, and so forth. This will be fol- 
lowed by a GOTO (statements 650—670) that transfers execution to 
the ‘‘answer-checking”’ portion of the loop. 

Program 18 is a skeletal program that illustrates this technique. Can 
you modify and complete this program to include an introduction, 
present more realistic questions, and give a more detailed user “‘per- 
formance report ’? 

RUN from disk and refer to the listing and run of Program 18. 


PROGRAM 18 
10 REM PROGRAM 18 


30 REM TUTORIAL (’LENGTHY’ QUESTIONS WITH HINTS) 
40 REM THIS PROGRAM DEMONSTRATES HOW QUESTIONS 
90 REM OF MORE THAN ONE LINE IN LENGTH MAY BE 

GO REM RANDOMLY SELECTED.- PRINT STATEMENTS 

70 REM USED TO PRESENT THE QUESTION. THE CORRECT 
BO REM ANSWER AND HINT: HOWEVER, ARE ASSIGNED TO 
SO REM ARRAYS. A RANDOM NUMBER BETWEEN 1 AND 
100 REM THE MAXIMUM NUMBER OF QUESTIONS WILL 

110 REM DEFINE THE BEGINNING LINE NUMBER OF THE 
120 REM SELECTED QUESTION THROUGH USE OF AN 

i130 REM ON-GOTO STATEMENT. THIS NUMBER WILL ALSO 
140 REM DEFINE THE CORRECT ANSWER AND HINT, 


180 REM A$() - A LIST OF ANSWERS 

190 REM H#() - A LIST OF HINTS 

200 REM F - A FLAG TO EITHER GIVE A HINT (0) OR ANSWER 
A QUESTION LOOP COUNTER 
A USER’S RESPONSE 

230 REM & - A RANDOM NUMBER (95-1) 
A FLAG FOR A SELECTED NUMBER 

270 REM ===DIMENSION LISTS TO MAXIMUM SIZE=== 

290 DIM A$(S) +H$(5) 1209) 

310 REM ===STORE ANSWERS AND HINTS=== 


330 FOR I = 1 TO 5 : READ AS$(1)sHS(I) : NEXT I 
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390 
360 
370 
380 
390 
400 
410 
AZO 
430 
440 
AGO 
470 
480 
490 
500 
010 
v2) 
v3 
940 
oo 
2BO 
070 
280 
O90) 
600 
B10 
620 
630 
B40 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
790 
760 
770 
780 
790 
BOO 
810 
B20 
B30 
B40 


REM ===TITLE+ INTRODUCTION» ETC. HERE=== 
REM : 

PRINT "0" : FOR I = 1 70 10 : PRINT : NEXT I 
PRINT " BASIC (AS IN COMPUTER) REVIEW" 
FOR I = 1 TO 3000 : NEXT I : PRINT "9" 


PRINT +: PRINT "THIS PROGRAM FRAGMENT DEMONSTRATES HOW" 
PRINT : PRINT "QUESTIONS LONGER THAN ONE LINE MAY BE" 
PRINT : PRINT "ASKED AT RANDOM WITHOUT REPETITION, 95" 
PRINT : PRINT "QUESTIONS ARE POSSIBLE IN THIS EXAMPLE." 
PRINT : INPUT "HOW MANY DO YOU WANT TO TRY"3Q 

IF 9 << 1 OR 9 + 3 THEN 440 

REM 

REM ===QUESTION LOOP=== 

REM 

FOR IT = 1 TO Q 

PRINT "0" 

A = INT(S * RND(QO) + 1) 


IF 2(4) = 1 THEN 320 

REM | 
REM ===FLAG NUMBER SELECTED: GOTO QUESTION LINE=== 
REM 

2(A) = 1: ON & GOTO 610+710,780,810,840 


REM 
REM ===FIRST QUESTION=== 

REM 

PRINT "THE BASIC STATEMENT THAT IS USED TO" 
PRINT "DISPLAY TEXT OR VARIABLE VALUES ON" 
PRINT "THE SCREEN OR PRINTER I8"3 

REM | 

REM ===AFTER PRINTING THE QUESTION; GOTO ANSWER 
REM 


GOTO 3000 

REM 

REM ===NEXT QUESTION=== 

REM 

PRINT "THE MAXIMUM LINE LENGTH FOR A BASIC" 
PRINT "STATEMENT ON THE COMMODORE 64 MICRO-" 
PRINT "COMPUTER IS -?- CHARACTERS" 5 

GOTO 5000 

REM 

REM ===SEQUENCE FOR REMAINING QUESTIONS SAME AS 
REM 

PRINT "THE BASIC FUNCTION TO CHANGE A DECIMAL" 
PRINT "VALUE TO AN INTEGER 15"5 

GOTO 5000 


PRINT "WHAT STATEMENT MUST BE AT THE END OF A" 
PRINT "BASIC SUBROUTINE"; 

GOTO 5000 

PRINT "THE BASIC STATEMENT THAT REQUIRES" 


CHECK=== 


ABOVE=== 
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850 PRINT "DEPRESSING THE ‘RETURN’ KEY I5"35 
BBO GOTO 5000 
BVO. REM Ssesscss sees s= 
880 REM THERE’S ROOM TO ADD MORE QUESTIONS HERE. 
B90 REM THE ‘3’ IN STATEMENTS 290;+3301:420,4B80 AND 520 
900 REM MUST BE CHANGED TO THE APPROPRIATE NUMBER» 
910 REM AND ANSWER», HINT DATA MUST BE ADDED, 
920 REM APPROPRIATE LINE NUMBERS MUST BE ADDED 
930 REM TO STATEMENT 570, 
O10 (REM sSasScaoaccoercs 
2000 INPUT R# : PRINT 
9010 IF R& = A$(K) THEN 3080 
o020 IF F=Q THEN F=il:PRINT "HINT: " H#(XK):PRINT 
| "ANSWER" :GOTO 5000 © 
2030 PRINT: PRINT "A CORRECT ANSWER IS " A(X 
2040 PRINT : INPUT "PRESS RETURN TO CONTINUE"$2% : GOTO 5100 
2050 REM 
2060 REM ===CORRECT ANSWER PROCEDURE=== 
2970 REM 
5080 PRINT "QO" : FOR P = 1 T0 10 : PRINT : NEXT P : 
PRINT» s"OKEY-DOKEY" 
59090 FOR P = 1 TO 500 : NEXT P 
o100 F = Q 
2110 NEXT I 
2120 REM 
9130 REM ===QUESTIONS COMPLETED=== 
9140 REM 
5150 PRINT "0" : FOR P = 1 TO 12 : PRINT : NEAT P 
S180 PRINT "CAN YOU ADD A CONCLUSION TO THIS?" 
9170 END 
0970 REM 
0980 REM ===DATA FOR ANSWER AND HINT FOR QUESTIONS=== 
0990 REM 
6000 DATA "PRINT" +"MIGHTIER THAN THE SWORD" 
6010 DATA "BO" s"SOR(B400)" 
6020 DATA "INT" s"VERY INTERESTING" 
6030 DATA "RETURN" »"-?- TO SENDER" 
6040 DATA "INPUT" s"/’?7" 


RUN 

BASIC (AS IN COMPUTER) REVIEW 
THIS PROGRAM FRAGMENT DEMONSTRATES HOW 
QUESTIONS LONGER THAN ONE LINE MAY BE 
ASKED AT RANDOM WITHOUT REPETITION. 5 
QUESTIONS ARE POSSIBLE IN THIS EXAMPLE. 
HOW MANY DO YOU WANT TO TRY?10 
HOW MANY DO YOU WANT TO TRY?3 
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THE BASIC STATEMENT THAT REQUIRES 
DEPRESSING THE ‘RETURN’ KEY IS?GOSUB 


HINT: /?! 
YOUR ANSWER? INPUT 


OKEY-DOKEY 
THE BASIC FUNCTION TO CHANGE A DECIMAL 
VALUE TO AN INTEGER IS?INT 


| OKEY-DOKEY 
WHAT STATEMENT MUST BE AT THE END OF A 
BASIC SUBROUTINE ?END 


HINT: -?- TO SENDER 
YOUR ANSWER?SEND 


A CORRECT ANSWER IS RETURN 
PRESS RETURN TO CONTINUE 
CAN YOU ADD A CONCLUSION TO THIS? 


RUN | 

BASIC (AS IN COMPUTER) REVIEW 
THIS PROGRAM FRAGMENT DEMONSTRATES HOW 
QUESTIONS LONGER THAN ONE LINE MAY BE 
ASKED AT RANDOM WITHOUT REPETITION, 5 
QUESTIONS ARE POSSIBLE IN THIS EXAMPLE. 


HOW MANY DO YOU WANT TO TRY?3 
WHAT STATEMENT MUST BE AT THE END OF A 
BASIC SUBROUTINE ?RETURN 


OKEY-DOKEY 
THE BASIC STATEMENT THAT IS USED TO 
DISPLAY TEXT OR VARIABLE VALUES ON 
THE SCREEN OR PRINTER IS?PRINT 


OKEY-DOKEY 
THE MAXIMUM LINE LENGTH FOR A BASIC 
OTATEMENT ON THE COMMODORE G4 MICRO- 
COMPUTER IS -?- CHARACTERS?80 
OKEY-DOKEY 


CAN YOU ADD A CONCLUSION TO THIS? 
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PROGRAM 19 


7.2.4 PROGRAM 19: Step-by-Step Dialog 


A tutorial program can do more than just give hints when users are 
having difficulty with a given question. It can, to some degree, approach 
the type of dialog that occurs between a tutor and a student. As an 
example, consider a question related to the chemical concept of a 
mole. By definition, a mole is a quantity of a chemical compound equal 
to the formula weight (FW) of that compound. This quantity is usually 
expressed in grams, but it could be any mass unit (ounces, tons, etc.). 
For a given weight of a chemical compound, the number of moles is 
determined by the following formula: 


Moles = weight (grams) / FW (gram-formula weight) 


The basis for this type of dialog example is in defining the main 
concept as a series of steps (or subconcepts) that lead to the correct 
solution. For this chemical concept, these steps are simply: 


1. Was the correct formula used? 

2. Were the correct values applied to the formula? 

3. If steps 1 and 2 are true, yet the user missed the question, then a 
‘math error’ must have occurred. 


Tutorial programs of this nature may be written by defining any con- 
cept into a step-by-step approach for solution or explanation. The 
following program illustrates a type of dialog that could occur in a 
tutorial instructional computing application. Note that the program 
makes use of the ABS (absolute) function to allow for a tolerance of 
+ or— 0.1 in the student’s answers (see statements 450—500 and 680). 
Also be reminded that this is, in essence, a program fragment and 
does not include an introduction, examples, random selection of pos- 
itive responses, use of counters for the number correct, and so on. 
These elements should always be incorporated in programs for actual 
use in an educational setting. 
RUN from disk and refer to the listing and run of Program 19. 


10 REM PROGRAM i9 

270 REM SScececsessas ss 

30 REM TUTORIAL ‘DIALOG’ 

40 REM PROGRAM DEMOS MORE OF A ‘TUTORIAL’ 

50 REM TYPE OF INTERACTION BETWEEN USER AND 

GO REM’ THE PROGRAM, USING THE CHEMICAL CONCEPT 
70 REM OF THE ‘MOLE’ AS AN ILLUSTRATIVE VEHICLE. 
80 REM ONLY THREE COMPOUNDS ARE USED IN 

90 REM THE EXAMPLE WITH THEIR FORMULAS AND 

100 REM FORMULA WEIGHTS STORED IN LISTS, 

110 REM USE OF THE ABS (ABSOLUTE) FUNCTION 
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120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220) 
230 
240 
200 
260 
270 
280 
290 
300 
310 
320 
330 
340 
300 
360 
370 
380 
390 
400 
410 
470 
430 
440 
450 
460 
470 
4980 
490 
200 
310 
vet) 
530 
D4) 
oO 
960 
070 
980 
380 
600 


REM IS ALSO INTRODUCED. 


REM at dm 

REM VARIABLE DICTIONARY 

REM Sf=sSS5->2 >< 

REM C#() - CHEMICAL COMPOUND FORMULA 

REM F - FLAG FOR MISSING QUESTION 15T TRY 
REM G - RANDOM NUMBER OF GRAMS OF COMPOUND 
REM M - NUMBER OF MOLES (GRAMS/FORMULA WT) 


REM R»R$s¥ - USER RESPONSES (YIA INPUTS) 
REM WC) - FORMULA WEIGHT OF A COMPOUND 


REM Xk - RANDOM NUMBER (3-1) FOR 
REM COMPOUND SELECTION 
REM Ae 


DIM C$(3) +W(3) 

DATA "KOH" s5G+"HF"s20+"KI"4166 

REM ===STORE THE FORMULAS AND WEIGHTS=== 
FOR I=1 TQ 3 

READ C(I) +W(T) 

NEXT I 

PRINT "QO" : F = 0 

REM Eee See 

REM GET A RANDOM NUMBER OF GRAMS AND A 
REM RANDOM COMPOUND. THEN CALCULATE MOLES, 
REM e-eseeeeceeessse 

G = INT(10 * RND(O) + 1) * 20 

A = INT(3 * RND(O) + 1) 


M=G / W(X) 
REM ===ASK THE QUESTION=== 
PRINT 


PRINT"HOW MANY MOLES OF " C#(K) " ARE" 
PRINT"PRESENT IN" G "GRAMG"§ 

INPUT 4 

PRINT 

REM —F—5—-o— ————i 

REM USE THE ABS FUNCTION TO ACCEPT AN 

REM ANSWER THAT IS WITHIN 0.1 OF THE 

REM CORRECT AN6WER AND THE USER’S ANSWER, 
REM ie ee 

IF ABS(R-M) <= .1 THEN 860 


REM ===GIVE ANSWER ON SECOND MISS=== 
IF F=1 THEN 800 
F=1 


REM ===ASK FIRST STEP IN SOLUTION SEQUENCE=== 
PRINT "NO.+.+DID YOU DIVIDE THE" 

PRINT "WEIGHT BY THE FW (Y OR N)"$ 

INPUT R& 

PRINT 

IF R$ = "Y" THEN 630 

PRINT"WELL» YOU SHOULD! TRY AGAIN." 
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610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
790 
760 
7709 
780 
790 
800 
810 
820 
830 
B40 
890 
B60 
870 
880 
890 
900 
910 


RUN 


HOW 


GOTO 400 

REM ===CHECK FOR SECOND STOP IN SOL’‘N SEQUENCE=== 
PRINT "GOOD. THAT IS CORRECT." 

PRINT "WHAT VALUE DID YOU USE" 

PRINT "FOR THE FW OF “ C#(X)5 

INPUT VY 

PRINT 

TF ABS(Y - W(X)) <= 41 THEN 750 

PRINT"AHA! THIS MAY BE YOUR" 

PRINT "PROBLEM, THE APPROXIMATE" 

PRINT "FW OF " C#(X) " IS" W(X) 

PRINT"NOW TRY IT AGAIN. ++" 

GOTO 400 

REM ===ITF CORRECT TO HERE+ MUST BE MATH ERROR=== 
PRINT"HMMM...+THAT IS THE CORRECT" 

PRINT "FW FOR " C#(X) ",. YOU MUST" 

PRINT"HAYE MADE AN ARITHMETIC" 

PRINT"ERROR. CHECK AND TRY AGAIN." 


GOTO 400 

PRINT 

REM ===SHOW THE CORRECT SOLUTION=== 
PRINT"MOLES = WT/FW" 

PRINT "=" G "/" W(X) 

PRINT "=" INT(M * 100)/100 

GOTO 880 

PRINT" BAG EB Lk BONS Tb 

REM ===LET USER CONTINUE AT WILL=== 
PRINT 

INPUT "WANT ANOTHER (Y OR N)"GR$ 


IF R$ = "Y¥" THEN 310 
END 


MANY MOLES OF KOH ARE 


PRESENT IN 180 GRAMS?.5 


NO..+DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?Y 


GOOD. THAT IS CORRECT. 
WHAT WALUE DID YOU USE 


FOR 


THE FW OF KOH?S6 


HMMM.++THAT IS THE CORRECT 
FW FOR KOH. YOU MUST 

HAVE MADE AN ARITHMETIC 
ERROR. CHECK AND TRY AGAIN, 
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HOW MANY MOLES OF KOH ARE 
PRESENT IN 180 GRAMS?3 


MOLES = WT/FW 
= 180/56 
= 3.21 


WANT ANOTHER (Y OR N)?Y 


HOW MANY MOLES OF KI ARE 
PRESENT IN 120 GRAMS?,.8 


EXCELLENT ! 
WANT ANOTHER (Y OR N)?Y 


HOW MANY MOLES OF KI ARE 
PRESENT IN 100 GRAMS?2 


NO...DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?Y 


GOOD. THAT IS CORRECT, 
WHAT VALUE DID YOU USE 
FOR THE FW OF KI?5S 


AHA! THIS MAY BE YOUR 
PROBLEM. THE APPROXIMATE 
FW OF KI IS 165 

NOW TRY IT AGAIN... 


HOW MANY MOLES OF KI ARE 
PRESENT IN 100 GRAMS?,.6 


EXCELLENT ! 


WANT ANOTHER (Y OR N)?N 


7.3 Simulation Applications 


Usually, simulation applications in instructional computing are used 
when it is important to understand a given concept, but one or more 
of the following situations apply: 


1. There are time and/or space and/or equipment limitations. 
2. The real process might place the user in a perilous situation. 


SS ee ee 8 Ss 
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PROGRAM 20 


3. Review and/or practice would be beneficial prior to performing 
the actual experiment or process. 


Simulations in instructional computing are based upon models, 
most of which are mathematical in origin. In general, these programs 
allow a user to manipulate parameters and perhaps discover the effect 
of those manipulations. One popular application is in population 
dynamics: What happens to the population over a certain span of 
years if both the birth and death rates decrease and the female/male 
birth ratio increases? Another application is in environmental stud- 
ies: What happens to the water oxygen content if untreated raw sew- 
age is dumped into a slow-moving stream? A fast-moving river? What 
is the effect of performing primary treatment? Secondary treatment? 
How does temperature affect the above results? 

Again, the example programs discussed below are not extensive 
simulations; they do illustrate the concept of basing the design on 
some defined model. 


7.3.1 PROGRAM 20: Rolling a Pair of Dice 


One easy model to simulate is rolling a pair of dice. Any die rolled 
will give a random number, | through 6. The sum of the two dice is 
the roll value. Given an infinite number of rolls, what number is cast 
most often? What would be your guess? Program 20 can provide a 
simulated, but, nonetheless, fairly accurate answer to this question 
(within roll limits!). 

Note the technique used in statements 582—586 to determine the 
value of the number cast most often. Note also how the IF-THEN- 
PRINT is used to display a response in statements 588-590. (Be sure 
to note the semicolon at the end of statement 588!) 

Remember, the most important point in designing and developing 
any simulation is in defining the model. Once this is done, it may be 
possible to design a simulation of the model. 

RUN from disk and refer to the listing and run of Program 20. 


10 REM PROGRAM 20 

270 REM S2esse2eneenae5 

30 REM SIMULATION 

40 REM PROGRAM DEMONSTRATES ROLLING DICE 

50 REM UP TO 1000 TIMES, GIVING THE DISTRIBUTION 

GO REM FOR EACH SET OF ROLLS. EXAMINATION OF 

70 REM THE PERCENTAGE A GIVEN NUMBER IS CAST 

80 REM MAY BE USED TO ILLUSTRATE THE NORMAL | 
90 REM DISTRIBUTION CURVE OF THE RANDOM-NUMBER GENERATOR. 
110 REM Soe soos SS = 


I 
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120 
130 
140 
130 
132 
134 
150 
170 
180 
190 
200 
210 
220 
230 
240 
200 
280 
270 
260 
290 
300 
310 
g20) 
330 


340 
390 
360 
370 
380 
39g 
392 
400 
402 
410 
A420 
430 
440 
430 
480 
470 
480 
490 
492 
A494 
496 
500 
O10 
020 


REM VARIABLE DICTIONARY 


REM yt Ae 

REM Dl - FIRST DIE (OF A PAIR OF DICE) 

REM D2 - A SECOND DIE 

REM L - LARGEST NUMBER CAST 

REM N - USER ‘GUESS’ OF NUMBER MOST OFTEN CAST 
REM P() - COUNT OF A GIVEN VALUE FOR 

REM A ROLL OF A PAIR OF DICE 

REM Pi() - PERCENTAGE DISTRIBUTION 

REM R - NUMBER OF ROLLS (WIA INPUT) 

REM § - 5UM OF Di AND D2 (VALUE OF A GIVEN ROLL) 
REM SSsesees ese -s= 

DIM P(i2)»P1(12) 

PRINT "Q" 

PRINT+s"THIS PROGRAM SIMULATES" 

PRINTs"ROLLING A PAIR OF DICE" 

REM 

REM ===INITIALIZE THE COUNT ARRAY=== 

REM 

FOR I = 2 T0 12 : P(I) = 0 : NEXT I 

PRINT 

INPUT "HOW MANY ROLLS WOULD YOU LIKE" SR 

REM ===CHECK. FOR REASONABLE NUMBER OF ROLLS=== 
IF R <= 10 OR R 21000 THEN PRINT "I WANT 10 - 1000!" ; 
GOTO300 

PRINT "0" : FOR I = 1 TO ii : PRINT : NEXT I 
PRINT "WHAT NUMBER DO YOU THINK WILL BE CAST" 
INPUT "MOST OFTEN (2-12)"5N 

IF N« 2 OR N + 12 THEN 340 

REM ===SHOW THE USER WE’RE DOING IT=== 

PRINT "O":FOR T=1 TO 10:PRINT:NEXT I:PRINTs»"PATIENCE,..." 
REM 

REM ===DO THE ROLLS=== 

REM 

FOR T=1 TO R 

REM ===GET A RANDOM VALUE FOR EACH DIE=== 

Di = INT(G * RND(O) + 1) 

D2 = INT(G * RND(O) + 1) 

REM ===SUM THE PAIR OF DICE=== 

§ = Dl + D2 

REM ===INCREASE THAT COUNT BY ONE=== 

(P)S = P(S) + | 

NEAT T 

REM 

REM ===ROLLS COMPLETED=== 

REM 

PRINT "Q" 

PRINT "VALUE OF ROLL" TAB(19)"COUNT" TAB(31)"%" 
PRINT 
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940 
046 
O00 
Dog 
oBO 
070 


2B0O 
061 
082 
263 
064 
085 
2688 
287 
288 
089 
090 
092 
600 
B10 
820 
630 
B40 
B50 
B52 
6B0 
B70 
660 
BB2 
B84 
866 
666 
B90 
700 
710 
720 
722 
724 
728 
728 
730 
740 
790 


RUN 


FOR L=2 TO 12 


REM 

REM ===NOTE THE METHOD OF ROUNDING UP=== 

REM 

PAICLd=INT(((P(L) /R) * 100) + 15) 

PRINT TAB(6) L TAB(20) P(L) TAB(29) INT((P(L) * 100/7R) 
100)/100 

NEXT L 

REM 

REM ===FIND LARGEST NUMBER CAST=== 

REM 

B= 0 : FOR I = 2 T0 12 : IF P(I) <= B THEN 5866 


B= P(I) : Le=I 

NEAT I | 

PRINT +: PRINT "THE NUMBER CAST MOST OFTEN WAS" L 
PRINT "YOUR NUMBER WAS" N35 

IF L = N THEN PRINT "...-VERY GOOD!" : GOTO 592 
PRINT ".+.TOO BAD!" 

PRINT 

PRINT "WANT TO SEE THE DISTRIBUTION" 
PRINT"CURVE (Y OR N)"5 

INPUT AS% 

IF A$<> "Y¥" THEN 730 


PRINT "QO":PRINT" PERCENTAG E" 
PRINT" DISTRIBUTION" 

PRINT" —--§ -$ - ee ee ee eee eee een nee ? 

FOR [=2 TO 12 

PRINT ISTAB(4)5"I "5 

FOR J=i1 TO Pil) 

IF Pi(I) = 0 THEN 700 

REM 

REM ===PRINT OUT GRAPHIC CHARACTER USING ASCII CODE=== 
REM 

PRINT CHR$(1B2)5 

NEAT J 

PRINT 

NEAT |] 

PRINT "0 --------------- eee enn ne . 
PRINT “ 12345B87B91111111111222222" 
PRINT " 01234587869012345" 
PRINT " | PER G6 EN T* 

PRINT: INPUT “WANT ANOTHER SET OF ROLLS (Y OR N)"52% 
IF 2% = "Y¥" THEN 270 

END 


THIS PROGRAM SIMULATES 
ROLLING A PAIR OF DICE 
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HOW MANY ROLLS WOULD YOU LIKE?500 


WHAT NUMBER DO YOU THINK WILL BE CAST 
MOST OFTEN (2-12)7 


PATIENCE..+NOW ROLLING 


VALUE OF ROLL COUNT i 
2 14 2.79 
3 20 a) 
: 4 36 7419 
a) 65 13 
6 62 12.39 
t 79 15.8 
8 69 13.8 
=) DQ 10 
10 OQ 10 
11 32 6.4 
Le 18 34959 


THE NUMBER CAST MOST OFTEN WAS 7 
YOUR NUMBER WAS 7,...VERY GOOD! 


WANT TO SEE THE DISTRIBUTION 
CURVE (Y OR N)?Y 


EEEEE 

EEE KEEE 
EXEKEKEEKEKEEE 
HEKKEEREEEESE 
HEEKEEEKEEKKEESE 
KEXEEKEKEEKEKE 
HEEEEEKEEE 
HEHEEEEKKES 
HEEHEE 

HEF 


eee OO GU ow hy 


hI 
el ee A ee ee ee 


1234567891111111111222222 
0123456789012345 
PERCENT 


WANT ANOTHER SET OF ROLLS (Y OR N)?N 


es 
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7.3.2 PROGRAM 21: Dealing a Bridge Hand 


As might be expected, one easy model to simulate is a deck of 52 cards. 
Manipulations, however, are limited to “shuffling” the deck then 
observing the deal. A simulated deck may be considered as a two- 
dimensional array of 13 rows (card values) by 4 columns (suits). Two 
random-number generators can pick (deal) a given row and column, 
respectively, defining a position in the array. Since the random row 
also defines the card value (ace, king, etc.) and the random column 
defines the suit (spades, hearts, etc.), it is simple to PRINT the card 
“dealt.” The position in the array can be flagged so that any dealt 
card will not be redealt until the deck has been “shuffled” (by reini- 
tializing the array). 

Program 21 simulates dealing a bridge hand (13 cards) and then 
arranging the hand by suit. This “arranging the hand by suit” intro- 
duces a very simple example of a common programming strat- 
egy: sorting (see statements 930-980). That is, let the program order 
a given list in either increasing or decreasing value. In the example 
here, the list is sorted by suit values (1-4) by simply checking each 
“suit” in the two-dimensional array and PRINTing the value of each 
card that was ‘‘dealt.”’ 

However, there are more sophisticated sorting routines. The one 
shown below sorts 100 or less numbers greater than zero from a one- 
dimensional array [N(J)] into their increasing numerical order. 


1000 REM =====BEGIN SORT===== 

i010 FOR J = i TQ 100 

1020 D = N(J) 

1130 FOR K = J - 1 TO 1 STEP -1 
1040 IF N(K) «© D THEN 1080 
1050 N(K + 1) = N(R) 

1080 NEXT Kk 

1070 K = 0 

10B0 N(K + 1) = D 

1090 NEAT J 

1100 REM =====END OF SORT====5 

i110 FOR I = i TO 100 

1120 IF N(I) = 0 THEN 1140 

1130 PRINT N(1) 


1140 NEXT I 


How could this sorting routine be modified so that it could alpha- 
betize a list of names input into one array, L$(_ ), as: 


LAST NAME(space)FIRST NAME 
then print out the sorted (alphabetized) list? (Note: An A is considered 


A 
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PROGRAM 21 


less than a B, which is less than a C and so on.) Program A732 on the 
text diskette gives one possible solution. 


RUN from disk and refer to the listing and run of Program 21. 


10 

20 

30) 

40 

OQ 

60 

70 

BQ 

90 

100 
130 
140 
130 
160 
190 
200 
210 
220 
230 
260 
270 
280 
290 
300 
310 
330 
340 
330 
360 
370 
380 
390 
400 
410 
A420 
430 
Aat 
430 
460 
470 
480 
490 


REM P 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM | 
REM 
REM 
DIM 
REM 
DATA 
DATA 
REM 
DATA 
REM 
REM 
REM 
FOR 
REM 
REM 
REM 
FOR 
PRIN 
PRIN 
PRIN 
REM 
REM 
REM 
REM 


ROGRAM 21 


SIMULATION . 

PROGRAM DEMOS THE USE OF A 2-DIM ARRAY 
(13 ROWS BY 4 COLUMNS) TO SIMULATE 

A CARD DECK (13 CARD VALUES BY 4 SUITS), 
THIRTEEN CARDS (E.G.» A BRIDGE HAND) 

ARE RANDOMLY SELECTED FROM THE ‘DECK, ’ 
ANOTHER USE OF THE IF-THEN STATEMENT 

IS SHOWN IN COUNTING ‘HONOR’ POINTS. 


C - A RANDOM CARD ‘VALUE’ (13-1) 
C$#() - A CARD ‘NAME’ (ACE+ KING» ETC.) 
Ci+) - CARD ‘DECK’ (A 2-DIM ARRAY) 


P - HONOR POINT COUNTER (ACE = 4, 
KING = 3+ QUEEN = 2+ JACK = 1) 
5 - A RANDOM SUIT ‘VALUE’ (4-1) 


S$() - SUIT ‘NAME’ (SPADES, HEARTS» ETC.) 


C(1394) ».C$(13) »5$(4) 
===CARD NAMES=== 
"ACE" "KING" s"QUEEN" s"JACK" +"TEN" » "NINE" 


"EIGHT" »"SEVEN" "SIX" "FIVE" s"FOUR" +"TREY" »"DEUCE" 


===SUIT NAMES=== 
"SPADES" s"HEARTS" +"DIAMONDS" »"CLUBS" 


==STORE THE CARD VALUES (NAMES) === 


— 
it 


1 70 13 : READ C$(I) : NEAT I 


STORE THE SUIT VALUES (NAMES)=== 


I = 1 TO 4 : READ S$(T) : NEAT I 
T uM 

i P A SIMULATED BRIDGE HAND" 

7 


INITIALIZE THE ARRAY (SHUFFLE 
THE CARD DECK) 
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200 FOR I=1 TO 13 

010 FOR J=1 TO 4 

020 C(I+J)=0 

O30 NEXT J 

940 NEXT I 

290 PRINT"HERE’S HOW THEY WERE DEALT:" 

SGO PRINT 

O70 FOR D=1 TO 13 

080 REM ===PICK A CARD VALUE=== 

080 C = INT(13 * RND(O) + 1) 

GOO REM ===PICK A SUIT VALUE=== 

610 S = INT(4 * RND(O) + 1) 

G20 REM ===HAS THIS CARD BEEN DEALT?=== 

630 IF C(C+S)=1 THEN 590 

640 C(C+5)=1 

650 REM eanssssseesse=e 

G60 REM HERE’S ANOTHER USE OF IF-THEN STATEMENTS: 
G70 REM IF THE EXPRESSION IS TRUE+ THEN THE 

G80 REM VALUE OF P WILL BE INCREASED ACCORDINGLY, 


680 REM morsseszesescscc 

6982 IF C > 4 THEN 770 

700 IF C = 1 THEN P = P + @ 

710 IF C = 2 THEN P = P + 3 

720 IF C = 3 THEN P = P + 2 

730 IF C = 4 THEN P = P + 1 

740 REM 

730 REM ===DISPLAY THE CARD DEALT=== 
760 REM . 
770 PRINT TAB(S) C#(C) TAB(11)3"0OF" TAB(14) S$(S) 
780 NEXT D 

780 PRINT 


800 PRINT"DEPRESS ANY KEY+ AND I’LL" 

810 PRINT"ARRANGE THE HAND BY SUIT." 

870 REM Sass sccce sss +S 5 

830 REM WE’LL ARRANGE THE DEALT HAND BY GOING DOWN 
840 REM EACH COLUMN AND SEEING IF A GIVEN CARD HAS 
990 REM BEEN PICKED; I,.E.+ DOES C(IsJ) = 1? 

860 REM IF IT HAS BEEN PICKED: ‘I’ DETERMINES THE 
970 REM CARD FACE VALUE (NAME) AND ‘J’ THE SUIT. 
880 REM NOTE: IN THE NESTED LOOP BELOW; WE LOOK 
880 REM AT THE TABLE BY #*##*SUIT#** |! 

SOQ: REM Sees sac cccses 

910 GET 2% : IF 2$ = "" THEN 9810 

J20 PRINT "QO" ; PRINT TAB(S) "ARRANGED BY SUIT:" : PRINT 
930 FOR J = 1 TO 4 

940 FOR I = 1 T0 13 


J90 IF C(Il+J) = QO THEN 970 
J6O PRINT TAB(S) C(I) TAB(11) "OF" TAB(14) S#(J) 
870 NEXT I 
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972 PRINT 


980 NEXT J 

990 PRINT : INPUT "THE ‘HONOR’ POINTS IN THIS HAND ARE"SH 

1000 IF H = P THEN PRINT ‘EM GOREN! THAT’S RIGHT!" 
GOTO 1020 

1010 PRINT "NO+ I COUNT" P "HONOR POINTS HERE." 

1020 PRINT : INPUT "DEAL ANOTHER HAND (Y OR N)"32 

1030 PRINT "9" IF 2$ ="¥" THEN P = 0 : GOTO 500 

1040 FOR I = 1 TO ii : PRINT : NEAT I 

1050 PRINT "MAY YOUR LIFE BE FILLED WITH GRAND SLAMS" 

1060 END 

RUN 


A SIMULATED BRIDGE HAND 


HERE’S HOW THEY WERE DEALT: 


EIGHT 
FIVE 
ACE 
QUEEN 
SIX 
TREY 
SEVEN 
SEVEN 
NINE 
EIGHT 
DEUCE 
ACE 
EIGHT 


OF 


SPADES 
CLUBS 
DIAMONDS 
HEARTS 
SPADES 
HEARTS 
CLUBS 
DIAMONDS 
DIAMONDS 
CLUBS 
SPACES 
CLUBS 
HEARTS 


DEPRESS ANY KEYs AND I/LL 
ARRANGE THE HAND BY SUIT, 
ARRANGED BY SUIT: 


EIGHT 
ork 
DEUCE 


QUEEN 
EIGHT 
TREY 


ACE 
NINE 
SEVEN 


ACE 
EIGHT 


OF 
OF 
OF 


OF 
OF 
OF 


SPADES 
SPADES 
SPADES 


HEARTS 
HEARTS 
HEARTS 


DIAMONDS 
DIAMONDS 
DIAMONDS 


CLUBS 
CLUBS 


7.3 Simulation Applications 


137 


PROGRAM 22 


SEVEN OF CLUBS 
FIVE OF CLUBS 


THE ‘HONOR’ POINTS IN THIS HAND ARE? 5 
NO» I COUNT 10 HONOR POINTS HERE, 


DEAL ANOTHER (Y OR N)?N 


MAY YOUR LIFE BE FILLED WITH GRAND SLAMS 


71.3.3 PROGRAM 22: Caloric Intake and Ideal Weight 


Diet and the maintenance of proper body weight are popular concerns 
in our society. It is well known that by careful control of caloric intake 
and a good exercise program, weight can be lost or gained and then 
maintained at an “ideal” level. 

Program 22 is based upon a model that defines a woman’s ideal 
weight as 90 pounds plus 5 pounds for each inch over (or minus 5 
pounds for each inch under) 5 feet in height. A man’s ideal weight is 
defined as 96 pounds plus 6 pounds for each inch over 5 feet in height. 
This weight, times an “exercise activity factor’’ of 12 if not active, 15 
if moderately active, or 18 if very active, gives an approximate daily 
calorie count to maintain the ideal weight. Assuming that a pound of 
fat is equivalent to 3500 calories, a prediction of weekly weight loss 
or gain can be made. 

Program 22 allows manipulation of a limited daily menu and exer- 
cise activity factors to examine the effect on weight. However, its use 
here is primarily that of a simple illustration of basing a simulation 
on some defined model. Any model (within reason) can be simulated 
by a computer program. The most important step in developing the 
program is careful analysis of its design based upon a given model. 

Note: For some fun using a loosely based simulation, LOAD 
“ISLAND” ,8 and RUN. 

RUN from disk and refer to the listing and run of Program 22. 


10 REM PROGRAM 22 

20 REM [Sock oe ee SSS SSeS SSS eS s 

30 REM SIMULATION: THIS PROGRAM PRESENTS A ~ 

40 REM SIMULATED (AND LIMITED!) DAILY MENU 

20 REM FOR SELECTION BY A USER. BASED UPON 

GO REM THE MENU SELECTED AND THE SEX» HT. + 

70 REM AND ACTIVITY OF THE USER» AN IDEAL 

BO REM WEIGHT AND THE NUMBER OF CALORIES TO MAIN- 
90 REM TAIN THAT WEIGHT IS GIVEN, FINALLY s 

100 REM A WEIGHT DIFFERENTIAL (LOSS OR GAIN) 
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110 
120 
130 
140 
i50 
iso 
170 
i60 
190 
200 
210 
220 
230 
240 
250 
254 
280 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
aso 
470 
ago 
ago 
500 


O10 
320 
O30 
240 
oo0 
260 
270 


REM ASSUMING CONSISTENT CALORIC INTAKE 
REM IS SHOWN, BUT+ THE MENU IS LIMITED! 


REM Bananas stssrsasssssss 

REM 

REM VARIABLE DICTIONARY 

REM Seana See sae se sases 

REM A - EXERCISE ACTIVITY FACTOR 

REM 6B - BASE WEIGHT 

REM C - CALORIES TO MAINTAIN IDEAL WT. 
REM C() - CALORIES PER FOOD PORTION 

REM E - TYPE OF EXERCISE 

REM F#()- A LIST OF FOODS FOR EACH MEAL 
REM 4H - HEIGHT IN INCHES 

REM I - IDEAL WEIGHT 


REM MS - A MEAL (BREAKFAST, LUNCHs DINNER) 
REM MC - CALORIC INTAKE PER MEAL 
REM N - THE NUMBER OF THE FOOD SELECTED 


REM P - POUNDS (LOSS OR GAIN) 

REM § - SEX OF THE USER 

REM T - TOTAL CALORIC INTAKE 

REM W - WT. FACTOR/INCH FROM 5 FT. 
REM 2() - FLAG FOR FOOD SELECTED 
REM 'SSssecacsc sce esses ss 

REM 


DIM C(11) sFS(11) s2¢11) 

PRINT "QO"S:FOR J=1 TO 9:PRINT:NEXT J 

PRINT "A SIMULATED DAILY CALORIC INTAKE AND" 
PRINT:PRINT " ITS EFFECT ON YOUR IDEAL WEIGHT" 
FOR J=1 TO 4000:NEXT J 


PRINT "QO" :PRINT"YOU WILL BE PRESENTED A MENU FOR BREAK-" 


PRINT: PRINT"FAST» LUNCH» AND DINNER, SELECT AS MANY" 
PRINT: PRINT" ITEMS FROM EACH MENU AS YOU WISH. AFTER" 
PRINT: PRINT"YOUR DAILY MENU HAS BEEN COMPLETED; YOU" 
PRINT: PRINT"WILL RECEIVE A SUMMARY OF YOUR CALORIC" 
PRINT: PRINT" INTAKE AND ITS EFFECT ON YOUR IDEAL WT." 


PRINT: PRINT" DEPRESS AN ¥ KE Peace 
GET 2$:IF 2$="" THEN 460 

REM 

REM ===BREAKFAST DATA=== 

REM 


DATA "BREAKFAST" +"BACON OR SAUSAGE" +200,"CEREAL WITH 
MILK" +250 

DATA "COFFEE (BLACK) "»5+"COFFEE (WITH SUGAR)" +50 
DATA "EGGS (2)",100e"MILK" 5125 

DATA "ORANGE JUICE" »s60+"PANCAKES" s225 

DATA "SWEET ROLL" 1250 ,"TOAST" +75 s"WAFFLES" +350 

GOSUB 1290 

REM 

REM ===LUNCH DATA=== 


7.3 Simulation Applications 


139 


080 REM | 

980 DATA "LUNCH" +"BEER"»125,"BEFORE LUNCH DRINK" +115 
600 DATA "CHEESEBURGER" +310,"COLA" 4144 

G10 DATA "COTTAGE CHEESE" +110+"CRACKERS" 475 
G20 DATA "FRENCH FRIES" +400 +"HAMBURGER" 260 
630 DATA "MILK" +125+"TUNA FISH" 450 

G40 DATA "VEGETABLE OR FRUIT SALAD",75 

G90 GOSUB 1290 

GGO REM 

G70 REM ===DINNER DATA=== 

880 REM 

890 DATA "DINNER" +"APPLE PIE" +300 

700 DATA "BAKED POTATO" +250;"BEFORE DINNER DRINK"»115 
710 DATA "BEEF STEAK" +560+"BEETS" +40 

720 DATA "DOZEN RAW OYSTERS" +240+"FISH" 400 
730 DATA "MACARONI" »65+"PEAS" 5115 

740 DATA "TOSSED SALAD"s755"T.V. DINNER" 1500 
730 GOSUB 1290 

780 GOSUB 1530 

770 PRINT "NOWs SOME PERSONAL DATA IS NEEDED..." 
780 FOR J=1 TO 3000:NEXT J 

790 GOSUB 1530 

BOO PRINT"ARE YOU:" 

810 PRINT" 1, FEMALE" 

820 PRINT" 2+ MALE" 

830 PRINT"ENTER 1 OR 2"5 

B40 INPUT § 

B50 IF S§ < 1 OR S > 2 THEN 830 

860 IF S=1 THEN B = 90 : W = 5 : GOTO B80 
870 B = 96 : W= 6 

880 GOSUB 1530 

890 PRINT"WHAT IS YOUR HEIGHT IN INCHES"5 


JOQ0 INPUT H 

J10 IF H < 48 OR H > 84 THEN 890 

J1i2 REM 

J14 REM ===COMPUTE ‘IDEAL’ WEIGHT=== 
916 REM 


920 I=((H - GO) * W) + B 

930 GOSUB 1530 | 

940 PRINT"DO YOU CONSIDER YOURSELF:" 
950 PRINT" 1. SEDENTARY (LITTLE EXERCISE)" 
960 PRINT" 2+ MODERATELY ACTIVE" 
970 PRINT" 3+ VERY ACTIVE" 

980 PRINT"ENTER 1+ 2+ OR 3"5 

990 INPUT E 

1000 IF E < 1 OR E > 3 THEN 980 

1010 IF E=1 THEN A=1i2 : GOTO 1040 
1020 IF E=2 THEN A=15 : GOTO 1040 
1030 IF E=3 THEN A=18 
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1032 
1034 
1036 
1040 
10350 
1050 
1070 
1080 
1090 
1100 
L110 
1120 
1130 
1132 
1134 
1136 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1240 
1250 
1260 
1270 
1280 
1282 
1284 


1286 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


1360 


1370 
1380 
1390 
1400 
1410 
1412 


REM 

REM ===COMPUTE CALORIES TO MAINTAIN ‘IDEAL’ WT,=== 
REM 

C=I * A 

PRINT "QO" : PRINT TAB(8) "SUMMARY OF DATA" : PRINT 
PRINT "YOUR IDEAL WEIGHT IS" I "POUNDS." : PRINT 
PRINT "TO MAINTAIN THAT WEIGHT YOU WILL NEED" 
PRINT "ABOUT" C "CALORIES PER DAY." +: PRINT 

PRINT "YOUR DAILY CALORIC INTAKE BASED UPON" 

PRINT "THE LIMITED MENU IS" T "CALORIES." +: PRINT 
PRINT " DEPRESS ANY KE Yoo" 

GET Z2$:IF Z$="" THEN 1120 

PRINT "0" : PRINT : PRINT "DATA ANALYSI 8" 


REM 


REM ===COMPUTE WEEKLY WT. DIFFERENTIAL=== 

REM 

P=INT((((T - C) * 7) / 3500) * 10)/10 

FOR J=1 TO 4 : PRINT : NEXT J 

PRINT:PRINT"IF YOU ARE CONSISTENT IN THIS CALORIC" 
PRINT: PRINT" INTAKE+ YOUR WEIGHT DIFFERENTIAL WILL" 
PRINT:PRINT"BE APPROXIMATELY " P "POUND(S)/WEEK," 
PRINT: PRINT" DSF tk iG S35 ANY K E Youre" 
GET 2$:IF Z2$="" THEN 1200 

GOSUB 1530 

INPUT "DO YOU WISH ANOTHER ANALYSIS (Y OR N) "324% 
IF 2$ = "YY" THEN T=0 : RESTORE : GOTO 550 

GOSUB 1530 

PRINT"MAY YOUR BODY BE BEAUTIFUL..." 

FOR J=i TO 4000:NEXT J:PRINT "0" 

END 

REM 

REM ===SUBROUTINE FOR MENU DISPLAY AND FOOD 
SELECTIOQN=== 

REM 

READ M$ 

FOR J=1 TO 1i:sREAD FS(J) CCS) :NEXT J 

PRINT "O"STABC14) iM$:PRINT 

PRINT " FOOD" $TAB(28) s"CALORIES": PRINT 

FOR J=i TO iil 

IF 2(J)=0 THEN 1390 


REM 

REM ===REVERSE DISPLAY SELECTED FOOD(S)=== 

REM 

PRINT "ig" J TAB(4) FS(J5) "IB" TAB(30) C(J) + GOTO i400 


PRINT J TAB(4) F#(J) 

NEXT J 

PRINT "“ 12 CONTINUE TO NEXT SECTION..." 

PRINT : PRINT "MEAL TOTAL:" MC TAB(25) "DAY TOTAL:" T 
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1420 PRINT : INPUT " YOUR CHOICE (1 TO 12)"35N 

1440 IF N << 1 OR N * 12 THEN 1420 

1442 REM 

1444 REM ===D0 WE CONTINUE TO THE NEXT SECTION? ?T=== 
i4d4G& REM 

1450 IF N=iz2 THEN 1510 

i460 REM 

1470 REM ===FLAG THE NUMBER OF THE ITEM SELECTED=== 
1480 REM 

1490 Z(N)=1 

1492 REM 

1494 REM ===ADD CALORIES FOR MEAL AND DAYS DISPLAY MENU 


1496 REM 

i500 MC = MC + C(N) ¢ T = T + CCN) +: GOTO 1310 
1502 REM 

1504 REM ===ZERO SELECTED FOOD LIST BEFORE NEXT MENU=== 
1506 REM 

i510 FOR J=1 TO 11: Z2(J)=0 : NEAT Jo: MC = 0 
1520 RETURN 

i322 REM 

1524 REM ===SCREEN POSITIONING SUBROUTINE=== 
1526 REM | 

i530 PRINT"(O" : FOR J=1 TO 10 : PRINT : NEAT J 
1540 RETURN 


RUN 


A SIMULATED DAILY CALORIC INTAKE AND 
ITS EFFECT ON YOUR IDEAL WEIGHT 

YOU WILL BE PRESENTED A MENU FOR BREAK- 
FAST» LUNCH+ AND DINNER. SELECT AS MANY 
ITEMS FROM EACH MENU AS YOU WISH. AFTER 
YOUR DAILY MENU HAS BEEN COMPLETED, YOU 
WILL RECEIVE A SUMMARY OF YOUR CALORIC 
INTAKE AND ITS EFFECT ON YOUR IDEAL WT. 


DEPRES 5 AN ¥ K E Yous 
BREAKFAST 


FOOD CALORIES 


i, BACON OR SAUSAGE 

1, CEREAL WITH MILK 

2, COFFEE (BLACK) 

4, COFFEE (WITH SUGAR) 
o+ EGGS (2) 

G. MILK 

7. ORANGE JUICE 


a ————— 
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8. PANCAKES 
9, SWEET ROLL 

10, TOAST 

11, WAFFLES 

12, CONTINUE TO NEXT SECTION... 


MEAL TOTAL: 0 DAY TOTAL: 9 
YOUR CHOICE(S) (1 TO 12)7?1 
BREAKFAST 
FOOD CALORIES 


1, BACON OR SAUSAGE 200 
2+ CEREAL WITH MILK 

3. COFFEE (BLACK) 

4, COFFEE (WITH SUGAR) 

o+ EGGS (2) 

o+ MILK 

7. ORANGE JUICE 

8. PANCAKES 

8, SWEET ROLL 

10, TOAST 

11, WAFFLES 

12, CONTINUE TO NEXT SECTION... 


4 


+ 


NOW, SOME PERSONAL DATA IS NEEDED... 


ARE YOU: 
1, FEMALE 
2+ MALE 
ENTER 1 OR 272 


WHAT IS YOUR HEIGHT IN INCHES?70 


DO YOU CONSIDER YOURSELF: 
1, SEDENTARY (LITTLE EXERCISE) 
2+ MODERATELY ACTIVE 
3. YERY ACTIVE 
ENTER i+ 2+ OR 372 
SUMMARY OF DATA 


YOUR IDEAL WEIGHT IS 156 


TO MAINTAIN THAT WEIGHT YOU NEED 
2340 CALORIES PER DAY, 
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7.4 Testing 


YOUR DAILY CALORIC INTAKE BASED UPON 
THE LIMITED MENU IS 2939 CALORIES, 


DEPRES 5 AN ¥ K E Yous 
DATA ANALYSIS 


IF YOU ARE CONSISTENT IN THIS CALORIC 
INTAKE» YOUR WEIGHT DIFFERENTIAL WILL 
BE APPROXIMATELY 1.1 POUNDS/WEEK,. 


DEPRES 5 AN Y K E Yous 
DO YOU WISH ANOTHER ANALYSIS (Y¥Y OR N)?N 


MAY YOUR BODY BE BEAUTIFUL... 


Testing is another application similar to drill-and-practice, with the 
exception that no assistance is provided. A question is asked, user 
response is entered, and at some point, the user's performance is 
indicated. 


7.4.1 PROGRAM 23: Name the Seven Dwarfs 


Program 23 is a short example of a testing program. This particular 
program tests the naming of the seven dwarfs of Snow White fame. 
Names are READ into a one-dimensional array, and then a question 
loop asks for one of those names. An internal loop searches the list of 
names for a match. If a match occurs, it is checked for being previ- 
ously named (flagged). At the conclusion of the program, the complete 
list is shown and any names in the list not given by the user are starred 
(«xxx). Note the use of the one-dimensional array D(n), where n = 
1-7, as a flag that prevents double credit for the same name being 
entered twice. The same flag is also used to “‘star’’ those names not 
entered when the test was taken (see statements 600—690 and 880— 
950). 

Although this program tests on naming dwarfs, the program itself 
may be used as a general test program. By just changing the DATA 
and the introductory and closing PRINT statements accordingly, the 
program could test naming from any chosen list. [Note how an “auto- 
matic’ DIMensioning can be defined by using a variable name, (after 
a value has been assigned to it), within the DIM statement (see state- 
ments 300—330).] 7 
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RUN from disk and refer to the listing and run of Program 23. 


PROGRAM 23 


10 REM PROGRAM 23 

20 REM SSssesseeersese 

30 REM TESTING 

40 REM PROGRAM DEMOS SIMPLE TESTING EXERCISE 

30 REM IN NAMING. PROGRAM CHECKS ANY NAME INPUT 
GO REM FIRST FOR ACCURACY AND; IF OK» THEN TO 

70 REM SEE IF NAME HAS BEEN INPUT PREVIOUSLY, 

80 REM ANY NAME NOT ANSWERED IS LISTED AT THE 

JO REM CONCLUSION OF THE PROGRAM. BY CHANGING 
100 REM THE DATA AND THE TITLE AND CLOSING PRINTS 
110 REM ACCORDINGLY» THE PROGRAM MAY BE USED As 
130 REM A MODEL FOR TESTING ANY LIST OF NAMES, 


i140 REM SEeessrs2rese"ece 

150 REM VARIABLE DICTIONARY 

160 REM SsenesseessesSs 

170 REM D() - A FLAG FOR THE NUMBER OF THE NAME 
180 REM CORRECTLY ENTERED 

190 REM D#() - THE LIST OF NAMES 

210 REM L ~ THE LENGTH OF THE LIST 

220 REM R - A RANDOM NUMBER (4-1) 

230 REM R() - POSITIVE FEEDBACK LIST 

240 REM § - COUNTER FOR THE NUMBER CORRECT 
250 REM SSSSscese sas -e= 

272 REM 

274 REM ===STORE THE FEEDBACK=== 

276 REM 

278 FOR I = 1 TO 4 : READ R#(I) +: NEXT I 

292 REM 

294 REM ===STORE THE LENGTH OF THE LIST=== 
296 REM 

298 READ L 

300 REM 

310 REM DIMENSION VARIABLES TO VALUE JUST READ=== 
320 REM 

330 DIM D(L) sD$(L) 

360 REM 

370 REM ===STORE THE LIST OF NAMES=== 

380 REM 

390 FOR I = 1 TO L : READ D$(1I) +: NEXT I 

420 REM 

430 REM ===BEGIN THE TEST=== 

440 REM 


450 PRINT "Q" 
460 PRINT "SNOW WHITE AND THE 7 DWARFS" +: PRINT 
480 PRINT "LET’S SEE IF YOU CAN NAME THEM..." 


ge se 
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490 
500 
210 
230 
300 
960 
a7) 
280 
290 
600 
610 
620 
§30 
640 
630 
S52 
634 
656 
660 
670 
680 
690 
700 


799 
760 
770 
780 
790 
BOO 
B10 
B20 
830 
B40) 
Bo) 
860 
870 
B80 
890 
900 


910 
940 
9930 


960: 


970 


FOR I=1 TO 3000 : NEXT I 
FOR T = 1 TOL: PRINT "V" 
FOR J = 1 TO 10 : PRINT : NEXT J 


PRINT TAB(G) "NAME NUMBER" TS : INPUT R& 
REM en Se ae Se aS = SS 

REM GO THRU THE LIST TO CHECK FOR A MATCH 
REM <sSSsopoSeoces 

FOR K=i TOL 

IF R$ <> D$(K) THEN 750 

REM SSeS sso Sesces ss 

REM AHA! A MATCH FOUND! 

REM HAS IT BEEN PREVIOUSLY ENTERED? IF NOT 


REM SET D(K) = 1» INCREASE THE SCORE 

REM BY i+» AND GIVE A POSITIVE RESPONSE 

REM Stee esecseczss 

IF D(K) = 0 THEN 690 

REM ===MATCH PREVIQUSLY ENTERED! === 

A$ = "THAT’S BEEN NAMED ALREADY" : GOSUB 2000 : GOTO 810 
REM 

REM ===CORRECT AND NOT PREVIOUSLY NAMED PROCEDURE=== 

REM 

D(K) = 1: 5 =5 +1 


R = INT(4 * RND(O) + 1) : AS = RE(R) + GOSUB 2000 : GOTO 
B10 

NEXT K 

REM eee 

REM IF WE GOT THIS FAR» INPUT NAME DID 


REM NOT MATCH ANY NAME IN THE LIST 


REM sssssssenancacz 

A$ = "HMMM... THAT’S NOT ONE" =: GOSUB 2000 
NEAT T 

PRINT "QV" ¢ PRINT 


PRINT"DEPRESS ANY KEY FOR THE COMPLETE LIST" 

GET 2$ : IF 2% = "" THEN 840 

PRINT "Q" 

PRINT 

PRINT TAB(8) "THE COMPLETE LIST:" 

FOR I=i TOL 

PRINT TAB(1i2) DS(I)5 

REM ===THOSE CORRECTLY NAMED WERE "FLAGGED" (D(T) = 
i bee 

IF D(I) = 0 THEN PRINT " *##%*%" 3: GOTO 950 

PRINT 

NEXT I 

PRINT 

IF S = L THEN PRINT TAB(G) "*YOU KNEW THEM ALL*¥" : GOTO 
1030 


1010 PRINT TAB(G) "“(##### = NAME NOT LISTED!)" : PRINT 
1020 REM ===SHOW THE SCORE TO ONE DECIMAL PLACE=== 
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1030 PRINT "THAT’S" INT(S#100/L*#10)/10 "PERCENT 
1040 PRINT 

1050 PRINT"BYE-BYE FOR NOW...AND WATCH" 

1060 PRINT " OUT FOR THOSE APPLES!" 

1070 END 

1992 REM 

1994 REM ===POSITIONING AND RESPONSE ROUTINE=== 
i996 REM 

2000 PRINT "0" : FOR J = 1 TO 10 : PRINT : NEX 


CORRECT!" 


J 


2010 PRINT» AS " !'" : FOR J = 1 to 1000 : NEAT J 


Z020 RETURN 

3000 REM 

3010 REM ===POSITIVE FEEDBACK CHOICES=== 
3020 REM 


3030 DATA "O. Ke"s"G REA T"s"S UPE R"s"Y ER Y GOO D" 


3032 REM 

S040 REM ===NO. OF ITEMS IN LIST=== 

3042 REM 

3050 DATA 7 

3060 REM 

3070 REM ===LIST OF ITEMS TO BE NAMED=== 
3080 REM 

3090 DATA "BASHFUL" +"DOC" »"DOPEY" +"GRUMPY" 
3100 DATA "HAPPY" +"SLEEPY" s"SNEEZY" 


RUN 
SNOW WHITE AND THE 7 DWARFS 


LET’S SEE IF YOU CAN NAME THEM... 


NAME NUMBER 1?D0C 
GREAT! 


NAME NUMBER 2?HAPPY 
O. Ka! 


NAME NUMBER 4?GROUCHY 
HMMM...+THAT’S NOT ONE.s-. 


NAME NUMBER S?GRUMPY 
VER Y G00 D! 


NAME NUMBER S?DOC 
YOU HAVE GIVEN THAT NAME BEFORE! 


NAME NUMBER 7?HAPPY 
YOU HAVE GIVEN THAT NAME BEFORE! 
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DEPRESS ANY KEY FOR THE COMPLETE LIST 
THE COMPLETE LIST: 
BASHFUL *#*#*#+# 
DOC 
DOPEY *#+#*+# 
GRUMPY 
HAPPY 
SLEEPY 
SNEEZY *#*##*% 


(4#*##%% = NAME NOT LISTED!) 
THAT‘’S 57.1 PERCENT CORRECT! 


BYE-BYE FOR NOW...+AND WATCH 
OUT FOR THOSE APPLES! 


7.4.2 PROGRAM 24: Multiple-Choice Questions 


Program 24 is one example of generating multiple-choice questions. 
Following any introductory statements, PRINT statements that ask a 
given question and DATA statements that provide the choices and 
their appropriate responses may be added to the program. The correct 
choice by number is assigned to variable A, and then a GOSUB trans- 
fers to a subroutine that displays the choices and evaluates the user’s 
input. This sequence of PRINT (the question), DATA (for each choice 
and its response), A = (number of the correct choice), and GOSUB 
5000 may be repeated for an indefinite number of multiple-choice 
questions in the program. (This program arbitrarily presents only 
four choices. What would be needed to change the program so that 
five choices would be displayed?) 
RUN from disk and refer to the listing and run of Program 24. 


PROGRAM 24 
10 REM PROGRAM 24 
20 REM saeoeeeeeresesccs 
30 REM TESTING 
40 REM PROGRAM DEMOS MULTIPLE-CHOICE TESTING 
590 REM USING DATA-READ TECHNIQUES. QUESTIONS 
GO REM ARE ASKED IN SEQUENCE (1,.E.+s NOT RANDOMLY) 
70 REM ALL QUESTION "SETS" ARE ENTERED IN THE 
80 REM PROGRAM FOLLOWING THE SEQUENCE: 


JO REM 1, PRINT STATEMENTS TO ASK THE QUESTION. 
100 REM Z. DATA STATEMENTS FOR 4 CHOICES AND 

110 REM A RESPONSE FOR EACH CHOICE. 

120 REM 3. SETTING YARTABLE "A" TO THE 
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130 REM NUMBER OF THE CORRECT CHOICE, 
140 REM 4, GOSUB 5000 

150 REM MULTIPLE-CHOICE QUESTIONS MAY BE 

150 REM ADDED TO THE PROGRAM IF THIS SEQUENCE 
170 REM IS FOLLOWED. 


180 REM Seetaas sess =s2= 

190 REM VARTABLE DICTIONARY 

700 REM 2225s ss 5 5552225 

210 REM A - CORRECT CHOICE ANSWER (1-4) 

220 REM A$() - A GIVEN CHOICE (READ FROM DATA) 
230 REM C - NUMBER CORRECT COUNTER 

240 REM R - USER‘S ANSWER (VIA INPUT) 

2090 REM R#() - A GIVEN RESPONSE (READ FROM DATA) 
780 REM sse2sss22eeee2ee 


270 DIM AS$(4) sRE(4) 

280 PRINT "0" : C = 0 

290 REM Ssci=ssaesccsce 

300 REM ADD INTRODUCTORY STATEMENTS; EXAMPLES, 
310 REM OR WHATEVER HERE (UP TO LINE 500) 

320 REM SSSeeess2+cS-s5 

330 REM 

340 REM 

S00 REM sssss2s2es2222e5 

010 REM PRINT THE QUESTION 

570 REM SSSaeeesseseees 

030 PRINT "THE STATE FLOWER OF TEXAS IS THE:" 
540 REM SseSecoss ss] oss 

290 REM AND DATA ELEMENTS FOR EACH 

260 REM CHOICE AND THE RESPONSE FOR THAT CHOICE 
570 REM “Sec esses sess = 

280 DATA "BLUE-BONNET" +"BEAUTIFUL» AREN’T THEY" 
290 DATA "ROSE"+"IT’S BY ANOTHER NAME HERE" 

GOO DATA "DANDELION" +"BLOW IT OFF" 

G10 DATA "MORNING GLORY"+"IT AIN’Ts BUT IT COULD BE" 
620 REM Sc2se2s=- sss == 

630 REM SET A = TO THE CORRECT CHOICE NUMBER 


660 REM Ae ee 
670 REM THEN GOSUB 5000 TO PRINT THE CHOICES; 
GBO REM GET THE ANSWER, AND THEN RESPOND TO IT. 


690 REM Seeeseeeee sere 

700 GOSUB 35000 

702 REM 

710 REM ===NEXT QUESTION SEQUENCE, ETC.=== 
712 REM 


720 PRINT "AN EXAMPLE OF A COMPUTER OUTPUT" 
730 PRINT "DEVICE IS:" 
740 DATA "PRINTER" s"YES» BUT THERE WAS ANOTHER IN THE LIST" 


Se 
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7930 
780 


770 
780 
790 
792 
794 
796 
810 
820 
830 
B40 
B30 
860 
870 
BBO 
B90 
900 
910 
920 
930 
4800 
4810 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
S000 
5010 
5020 
S030 
SOd0 
2030 
2060 
5070 
5080 
5090 
9100 
9110 
2120 
2130 
3140 
9150 
3160 
2170 


DATA 
DATA 


CHOICE" 


DATA " 
A dj 
GOSUB 
REM 
REM 
REM 
PRINT 
PRINT 
DATA " 
DATA " 
DATA 
DATA " 
A=3 
GOSUB 
REM 
REM 
REM 
REM 
REM 


R 
F 
P 


REM 
FOR I 
PRINT 
END 
REM 
REM 
REM 
REM 
PRINT 
REM 
REM 
REM 
REM 
FOR I 
READ 
PRINT 
PRINT 
NEXT 
PRINT 
INPUT 
REM 


IF R é 


PRINT 
REM 


° 
a 


1 AND 3 ABOVE"+s"0.K...THEY ARE 
SOOO 


==AND SO ON, AND ON=== 
"WHICH PLANET IS EARTH" 
"FROM THE SUN?" 

FIRST" »"THAT’S MERCURY" 
SECOND" »"/TIS VENUS» 


FOURTH" »"MAR-CYs THAT’S MARS" 


5000 


OOM TO ADD MANY MORE QUESTION 
OLLOWING THE SEQUENCE OF: 
RINT» DATA» A = + GOSUB 


1 TO 10 : PRINT : NEAT I 
"YOU ANSWERED" C "CORRECTLY." 


"KEYBOARD" +"THAT’S AN INPUT DEVICE" 
"TERMINAL SCREEN" +"YES+ BUT THERE IS A BETTER 


COMMON EXAMPLES" 


ABOUT DE MILO FROM THE SUN" 
"THIRD" +"RIGHT..+ YOU'RE TERRA-IFIC" 


"SETS" 


SUBROUTINE TO DISPLAY THE CHOICES» STORE 


THE RESPONSE FOR EACH CHOICE: 


READ THE DATA FOR THE CHOICE AND 
ITS RESPONSES PRINT THE CHOICE 


=1 TO 4 
AS( 1) sRS(1) 
I TAB(4) AS(T) 


I 


"YOUR CHOICE (1-4) "5R 


===CHECK FOR WITHIN RANGE=== 


1 OR R + 4 THEN 3110 


AND 


===PRINT THE RESPONSE FOR USER’S CHOICE 
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O180 PRINT RS(R) "I" 


2190 REM ===IS IT THE CORRECT CHOICE?=== 
2290 IF A = R THEN C = C + 1 : GOTO 5320 
5710 REM moconmressssess2“22 


e220 REM IF THE USER’S CHOICE IS NOT CORRECT, 
5230 REM PRINT THE CORRECT CHOICE NUMBER 
2240 REM AND THE CHOICE LISTED 

5750 REM SSeecSelsceccecs== 

2260 PRINT 

0270 PRINT "A CORRECT CHOICE IS" A ": " A$(A) 
2320 PRINT 

9330 PRINT"DEPRESS ANY KEY TO CONTINUE..." 
0340 GET Z2$:1F Z2$="" THEN 5340 

o3090 PRINT "0" : RETURN 

RUN 


THE STATE FLOWER OF TEXAS IS THE: 
1, BLUE-BONNET 

2. ROSE 

3. DANDELION 

4, MORNING GLORY 

YOUR CHOICE (1-4)?3 

BLOW IT OFF! 

A CORRECT CHOICE IS 1,.: BLUE-BONNET 
DEPRESS ANY KEY TO CONTINUE... 


AN EXAMPLE OF A COMPUTER OUTPUT 

DEVICE IS: 

1, PRINTER 

2+ KEYBOARD 

3+ TERMINAL SCREEN 

4, 1, AND 3. ABOVE 

YOUR CHOICE (1-4)?1 

YES» BUT THERE WAS ANOTHER IN THE LIST! 
A CORRECT CHOICE IS 4,: i. AND 3. ABOVE 
DEPRESS ANY KEY TO CONTINUE... 


WHICH PLANET IS EARTH 

FROM THE SUN? 

1. FIRST 

2+ SECOND 

3+ THIRD 

4, FOURTH 

YOUR CHOICE 15 (1-4)7?4 

MAR-CY+ THAT‘’S MARS! 

A CORRECT CHOICE IS 3.: THIRD 
DEPRESS ANY KEY TO CONTINUE... 


YOU ANSWERED 0 CORRECTLY! 
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7.3 Posers and Problems 


1. Modify Program 18 to present 8 randomly selected questions from 
a possible total of 12. Present an introduction to the program and 
a performance report that gives the number of questions answered 
correctly on the first, second, and third attempts at its conclusion. 

2. Modify Program 23 to test naming from any list of items of your 
choosing. 

3. Modify Program 24 to present five multiple-choice questions of 
your choosing, each with five possible choices. 

4. Identify an area in your particular field of interest in which an 
instructional computing program could be written for each of the 
five applications described in Chapters 6 and 7. Briefly outline each 
program by describing in a short paragraph its area, content, and 
application. 
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Chapter Eight 


\ 
S 


You’re RIGHTS, I’m LEFTS, 


She’s Gone... . 


(Bur, lL STRING Along) 


Thy knotted and com- 
bined strings to part / 
And each particular 
character to stand on end. 
paraphrased from 
Shakespeare’s 
Hamlet, Act 1, Sc. 5 


Think About This 

(for Fun) 

Four strangers meet in a 
room. How many hand- 
shakes are required for 

all to be introduced to one 
another? 


eee] 
Think About This 
(Seriously) 

What characteristics may 
be identified with educa- 
tionally valid instruc- 
tional computing 
software? 
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8.1 Objectives 


For the successful completion of this chapter you should be able to: 


1. Define and give at least one example of ‘‘string concatenation’”’ 
(Section 8.3). 

2. Define the purpose of and give at least one example of using the 
following BASIC functions: ASC, CHR$, LEN, LEFT$, RIGHT$, 
and MID$ (Sections 8.4.1—8.4.6). 

3. Use the Minimum Answer subroutine in at least one program of 
your choosing (Section 8.5). 

4. Use the KEYWORD subroutine in at least one program of your 
choosing (Section 8.6). 


3.2 Some Comments on Strings 


As you know by now, many of the instructional computing applica- 
tions use string input in a program to obtain a user's response. This 
response is then evaluated, and some form of appropriate feedback is 
given. To this point, most of this evaluation depended upon an exact 
match between the user’s response and some anticipated answer defined 
in the program. If, however, the user’s response contained typograph- 
ical errors, misspelling, or even something as subtle as a leading or 
trailing space (blank), and so forth, a match might not occur. This 
chapter will illustrate the use of certain BASIC functions and pro- 
gramming strategies to better accommodate evaluation of string input. 
Most of these functions will be incorporated into subroutines—some 
are simple; some are more complex. Through the use of these subrou- 
tines, a user’s response may be evaluated in terms of defined “mini- 
mum acceptable” or ‘‘key phrase” answers. In essence, the subrou- 
tines provide a means by which both the response and anticipated 


answer strings may be examined and compared in much more detail. 


8.3 String ConcaTenaTion 


Program Example: 
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Strings may be joined together by simple use of the + symbol. This 
process is called concatenation. As you know, relationships between 
strings may be compared as in: 

IF AS = R& THEN PRINT "“O. K." 


Other comparisons also may be performed. For example, enter and 
RUN the following programs. 


10 PRINT "9" 
20 INPUT “Enter any string of characters"s5F% 


You’re RIGHTS, I’m LEFT$, She’s Gone... (But, I'll STRING Along) 


30 PRINT 
40 INPUT "Enter another string of characters" 3S$ 


30 PRINT 
GO PRINT "The combined strings are " FS + S$ 
70 PRINT 
80 IF F% = S$ THEN P$ = " IS THE SAME AS " : GOTO 100 
90 P$ = " COMES BEFORE " 
100 IF F% <= S$ THEN PRINT FS " " P$ " " S$ : GOTO 120 
110 PRINT S$" " P$ "" FS 
120 END 
Program Example: 10 PRINT "9" 


20 PRINT "What’s the Password?" 
30 FOR I = 1 TO 3 


4c GET C$ : IF C# = "" THEN 40 
oO) PWS = PHS + CS 
60 NEXT I 


79 IF PWS = "C64" THEN PRINT "CORRECT CODE" : GOTO 90 
BO PRINT+ "INCORRECT CODE!" 
90 END 


8.4 BASIC Functions Related to Strings 


8.4.1 Function ASC (STRINGS) 


Purpose The ASC function converts the first character in STRING$ to its ASCII 
code (see Appendix B). 


Example: i0 FOR I = 1709 
20 READ S$ 
30 PRINT "The ASCII value for " S$ " is " ASC(S$) 
40 NEXT I 
50 DATA TE gO ge ge ge Os Be ae a eRe ae 


8.4.2 Function CHR$ (NUMBER) 


Purpose The CHR$ function converts the ASCII code number to its character 
equivalent. 

Example: 10 FOR C = 65 TO 90 
20) PRINT CHR#(C) " "5 


30 NEAT C 


8.4.3 Function LEN (STRINGS) 
Purpose | The LEN function returns the number of characters in STRINGS. 


Example: 10 PRINT "QO" : INPUT "Enter anything at all" R$ 
#0 L = LEN(R#$) 
30 PRINT "You typed " L " characters in your response," 
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Enter and RUN the following program. 


Program Example: 10 PRINT "QO" ¢ INPUT "Enter your full name"§ N& 
20 PRINT : PRINT "Here is your name underlined:" 
30 PRINT N$ 
40 FOR I = i TO LEN(N$) 
50 PRINT CHR#(184) 5 
GO NEXT I 


8.4.4 Function LEFT$(STRINGS, NUMBER) 


Purpose The LEFT$ function returns the LEFTMOST characters of ‘““NUM- 
| BER” length from STRING$. 
Enter and RUN the following examples. 


10 PRINT "QO" : INPUT "Do vou wish to continue" Rt 

20 IF LEFT$(R$si) = "Y" THEN PRINT+"Continuing « .» «" : GOTO 4o 
30 PRINT+"Stopping «+ + 4" 

40 END 


10 PRINT "9" : INPUT "Enter your full name"§3 N& 
20 FOR I = i TO LEN(N$) 

30 PRINT LEFTS(N$ +I) 

90 NEXT I 


8.4.7 Function RIGHTS(STRINGS, NUMBER) 


Purpose The RIGHT$ function returns the RIGHTMOST characters of ‘‘NUM- 
BER” length from STRING$. 
Example: 10 PRINT "QO" =: INPUT “Enter your name"s N& 
20 FOR I = 1 to LEN(N$) 
30 PRINT LEFTS(N$+I) TAB(20) RIGHT#(NG$+1) 
40 NEXT I 


8.4.6 Function MID$(STRING$, CHARNUM1,CHARNUM2) 


Purpose The MID$ function returns the characters from STRING$ beginning 
with (character number) CHARNUM1 through CHARNUM2. 
Enter and RUN the following example. 


10 PRINT "CLR/HOME" : INPUT "Enter your full name"s N$ 

20 L = LEN(NS$) 

30 PRINT “You entered " L " characters," 

40 PRINT "Now we’ll ‘pull out’ some of those characters «+ + + 
20 INPUT "Enter the beginning character NUMBER you want"s BC 
60 INPUT "Now enter the ending character NUMBER vou want"s EC 
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70 IF BC < 1 OR BC > EC OR EC > L 
THEN PRINT "**##0UT OF RANGE*¥**" +: GOTO 50 
BO PRINT "Those characters are: " MID$(N$,BC,(EC - BC) + 1) 
90 PRINT : INPUT "Want to do it again"s 2% 
100 IF LEFT$(Z#+1) = "Y" THEN 50 
110 END 


8.3 The Minimum Answer Subroutine 


Often in instructional computing, situations arise in a question-answer 
sequence in which one “key word” or continuous string of certain 
defined characters will be sufficient for a correct answer. We have 
seen (ad nauseam) the question: 


WHAT IS THE CAPITAL OF TEXAS? 


Of course, the answer anticipated is “AUSTIN” but, until now, answers 
such as: 


AUSTIN: TEXAS 
(or) 
IT IS THE CITY OF AUSTIN 


would not match our defined answer. You can imagine the puseeoon 
of a student in the following scenario: 


WHAT IS THE CAPITAL OF TEXAS? AUSTIN 
(space and RETURN pressed) 
NO» THE CORRECT NAME IS AUSTIN 


(And the student thinks, ““%$*!@ Stupid computer’’) 

The following routine allows an author to define a ‘‘word”’ of con- 
tinuous characters as the “minimum acceptable answer’ that has 
been assigned to A$. 


10000 INPUT R¢ 
10010 L = LEN#$(A$) 
10020 FOR I = 1 TO LEN( R$ - L + 1) 
10030 IF MID#(R$+IeL) = AS 
THEN PRINT "O.K.-" : RETURN 
10040 NEXT I 
10050 PRINT "The minimum answer is " A$ : RETURN 


A LISTing and RUN of a short, sample program is shown below. 
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Program Example: 


10 PRINT "9" 
20 PRINT "THIS PROGRAM IS WRITTEN IN A" 
30 PRINT "LANGUAGE CALLED ----- "4 


40 A$ = "BASIC" : GOSUB 10000 

20 PRINT "THE EPIC POEM ‘HIAWATHA’ WAS" 

GO PRINT "WRITTEN BY "3 

70 AS = "LONGFELLOW" =: GOSUB 10000 

BO FOR IT = 1 TO 12 : PRINT : NEXT I 

JQ PRINT» "THAT’S ALL + « 4" 

100 END 

10000 INPUT R$ 

10010 L = LEN(A$) 

10020 FOR IT = 1 TO (LEN(R$) - L + 1) 

10030 IF MIDS$(R$sIeL) <> AS THEN 100B0 

10040 PRINT : PRINT "YESs I’LL ACCEPT YOUR ANSWER,»" =: PRINT 

10050 PRINT» R$ =: PRINT : PRINT "BECAUSE IT CONTAINS " A# : GOTO 10090 
1QQ06Q NEXT I 

10070 PRINT : PRINT "YOUR ANSWER DID NOT CONTAINs " : PRINT 

10080 PRINT+ AS : PRINT : PRINT "THE MINIMUM ANSWER I WANTED." 

10090 PRINT : PRINT++ "RETURN KEY =3"§5 =: INPUT Z# : PRINT "9" : RETURN 


RUN 
THIS PROGRAM IS WRITTEN IN A 
LANGUAGE CALLED ----- ENGLISH 
YOUR ANSWER DID NOT CONTAIN 
BASIC 
THE MINIMUM ANSWER I WANTED. 
RETURN KEY =2% 
THE EPIC POEM ‘HIAWATHA’ WAS 
WRITTEN BY ?THENRY LONGFELLOW 
YES» I’LL ACCEPT 
HENRY LONGFELLOW 
BECAUSE IT CONTAINS LONGFELLOW 
RETURN KEY =e? 
THAT‘’S ALL « es . 


8.6 The KEYWORD Subroutine 


Up to this point, a variety of instructional computing program exam- 
ples and models have been presented. These programs illustrate some 
of the major concepts, strategies, and techniques that may be used in 
program design. However, one additional technique that merits dis- 
cussion is keyword matching. 

This technique allows a program author to define a keyword sequence 
of characters that, if found anywhere in the user’s response in the 
same sequence, will constitute a match between the input and an 
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anticipated answer. For example, assume that an author wanted to 
ask the following question: 


YOU HAVE REMOVED YOUR DIRTY SOCKS, 
WHAT SHOULD YOU DO WITH THEM NOW? 


Further assume that the author anticipates the following responses 
as possible answers to the question: 


WASH AND DRY THEM 
WASH THEM 

THROW THEM AWAY 
GIVE THEM AWAY 


With the use of a keyword subroutine, the author can define a match 
of these anticipated answers as: 


"WASH#DRY " 
"WASH" 
"THROW" 

HW GIVE" 


Thus, if the user responds with any phrase containing the word 
throw, for example, then a match will have been found. The author 
can then have the program make appropriate responses and transfer 
execution back to the original question or give the complete answer. 
If none of the anticipated answers are matched, a response (such as 
a hint) can be made and execution transferred accordingly. 

The program fragment, Keyword, found on the text diskette is one 
example of a subroutine of this nature. Although many of the program 
statements are beyond the scope of this text, it is very easy to use the 
subroutine. However, since Keyword is already written, there are cer- 
tain conventions that must be followed for its successful use: 


1. The user’s response must be in R$ (i.e., INPUT R$). 

2. The defined anticipated answers (keywords to search for in the 
user’s response) must be assigned to A$. 

3. A$ may have as many as five keywords, delimited (separated) by 
an asterisk. 

4. If a match occurs between the anticipated answer and the user's 
response, variable A$ is set to OK. If no match is found, A$ is set 
to NO. Appropriate response or continuation of keyword checking 
in the program is then based upon the value of A$. 

5. The subroutine begins with statement number 5000. 

6. The END statement is number 10000. 


Now, referring to the listing of program Socks, note the following 
sequence for using the subroutine: 


1. Program fragment Keyword is loaded from the disk, i.e., the KEY- 
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WORD subroutine (statements in the range of 5000 through 10000) 
is loaded into the system’s memory. 

. Statement 10 is added to document the program. 

. Statements 20-60 are added to ask the question and assign the 

user's response to R$. 

4. Statement 80 assigns the first anticipated answer (in this case, the 
correct response) to A$. Two keywords are needed: WASH and 
DRY. These are delimited by an asterisk. Transfer is then made to 
the subroutine beginning at statement 5000. 

5S. Upon return from the subroutine, statement 90 checks the value 
of A$. If the user’s response contains at least the keyword WASH 
followed somewhere by the keyword DRY, a match occurred, and 
A$ was set to OK by the subroutine. If a match did not occur, A$ 
was set to NO. 

6. If A$ is equal to OK, statement 90 PRINTs the program's response 
for the keyword defined in statement 80 (the correct answer). 
Transfer is then to 10000, the END of the program. 

7. Statement 110 is executed if no match occurred for the first key- 
word (A$ = NO). A$ is now redefined as the next keyword to check 
in the user’s response, and transfer is made back to the subroutine. 
This same sequence of defining a keyword, going to the subroutine, 
checking the value of A$ upon return, and continuing or respond- 
ing accordingly is repeated through statement 190. 

8. Statements 210-240 are executed if none of the defined keywords 
are matched, (i.e., either a hint or, after four tries, the correct answer 
is given). 


WwW N 


Following this same sequential strategy, a variety of both anticipated 
correct and incorrect answers may be used in a program. Program 
Keyword Demo on the text diskette is another example of using the 
keyword subroutine. Carefully examine its listing. (Note: The KEY- 
WORD subroutine portion of the program is not included in the list- 
ing. It is shown after the RUN of the program.) 


Program Example: 


10 REM ===SOCKS=== 

20 PRINT "Q" 

30 PRINT 

40 PRINT "YOU HAYE REMOVED YOUR DIRTY" 

29 PRINT "SOCKS. WHAT SHOULD YOU DO" 

60 INPUT "WITH THEM NOW" SRS 

70 PRINT 

BO A$ = "WASH#DRY": GOSUB 5000 

JO [IF A$ = "OK" THEN PRINT "GOOD! USE SOME FOOT POWDER TOO!" : GOTO 10000 
110 A$ = "WASH": GOSUB 5000 

120 IF AS = "OK" THEN PRINT "DO YOU WEAR WET SOCKS!?" +: GOTO 30 
140 A$ = "THROW": GOSUB 5000 
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150 IF AS = "OK" THEN PRINT "DON’T TOSS THEM! USE SOME SOAP!" : GOTO 30 

180 A$ = "GIVE": GOSUB 5000 

190 IF A$ = "OK" THEN PRINT "NO ONE WOULD TAKE THEM,y I’LL BET!" : GOTO 30 
210 F =F + 1 3: IF F < 4 THEN PRINT "THINK OF SOAP AND SUNSHINE!" : GOTO 30 
220 PRINT: PRINT 

230 PRINT "YOU SHOULD ALWAYS ‘WASH’ THEN ‘DRY‘" 

240 PRINT TAB(5) "THOSE FILTHY-DIRTY SOCKS!" =: GOTO 10000 

5000 REM ===KEYWORD SUBROUTINE=== 


RUN 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?GIVE THEM TO MY MOMMA 
NO ONE WOULD TAKE THEM!!! 


YOU HAVE REMOVED YOUR DIRTY 
SOCKS. WHAT SHOULD YOU DO 
WITH THEM NOW?BURY THEM 


THINK OF SOAP AND SUNSHINE! 


YOU HAVE REMOVED YOUR DIRTY 
SOCKS. WHAT SHOULD YOU DO 
WITH THEM NOW?WASH THEM FAST 
DO YOU WEAR WET SOCKS? 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?I BETTER THROW THEM AWAY 
DON’T TOSS THEM YET.s.+TRY 

SOME SOAP AND WATER, 


4 
4 


4 


YOU SHOULD ALWAYS ‘WASH’ THEN ‘DRY’ 
THOSE FILTHY-DIRTY SOCKS! 


Program Example: 


10 REM PROGRAM NAME: KEYWORD DEMO 

20 REM SSsstsesnrsesssssssesescsss 

30 REM THIS PROGRAM IS A DEMONSTRATION OF 

40 REM THE "KEYWORD" SUBROUTINE. UP TO 35 

20 REM KEYWORDS AS DEFINED MUST BE IN THE 

60 REM USER'S RESPONSE FOR A CORRECT ANSWER, 
70 REM OTHER ANTICIPATED ANSWERS ARE CHECKED 
80 REM AND THE PROGRAM RESPONDS ACCORDINGLY 
90 REM IF A MATCH OCCURS. 
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100 REM SSSSsassstssssasee=sseses== 

110 PRINT "QO" : DIM W#(5) 

120 PRINT "A DEMO OF THE KEYWORD SUBROUTINE." 

130 PRINT 

140 PRINT "WHAT DO WE CALL OUR FIFTY STATES" 

150 PRINT "COLLECTIVELY" § 

135 REM ===INPUT VARIABLE MUST BE R#=== 

160 INPUT R$ 

164 REM Smee cee es oe oes 

165 REM CHECK FIRST FOR A "CUTE" REPLY, 

166 REM E+G.e» "NOT THE UNITED STATES OF AMERICA" 
167 REM Seer scabssnte ses 

168 PRINT 

170 AS = "“N*¥UNITED*STATES" 

180 GOSUB 5000 

190 REM ===DID IT MATCH AS AS DEFINED (A$=O0K)?=== 
210 IF A$ = "OK" THEN PRINT "YOU ARE TRYING TO BE TRICKY! ": GOTO 130 
eed REM s22e2ee2eere2e22 

223 REM SET A% TO NEXT ANTICIPATED ANSWER AND; 

224 REM WE’LL DEFINE ANY STRING CONTAINING 

229 REM "UNIT STAT AMER" AS CORRECT 

230 AS = "UNIT#STAT*AMER" 


240 GOSUB 5000 
260 IF AS = "OK" THEN PRINT" THAT’S IT..+VERY GOOD!": GOTO 10000 
270 REM ===5ET AS TO NEXT ANTICIPATED ANSWER=== 


280 AS = "UNIT#STAT" 
290 GOSUB 5000 
310 IF AS = "OK" THEN PRINT "UNITED STATES OF WHAT???": GOTO 130 


320 REM ===SET A$ TO NEXT ANTICIPATED ANSWER=== 
330 A$ = "UNITED" 
340 GOSUB 5000 


360 IF A$ = "OK" THEN PRINT “UNITED WHAT OF WHAT???": GOTO 130 

369 REM ==SET AS TO NEXT ANTICIPATED ANSWER=== 

370 AS = "AMERICA" 

380 GOSUB 3000 

400 IF AS = "OK" THEN PRINT “YES+ BUT WHAT OF AMERICA???": GOTO 130 

403 REM ==SET AS TO NEXT ANTICIPATED ANSWER== 

410 AS = "UeS*A" 

420 GOSUB 3000 

440 IF AS = "OK" THEN PRINT “HMMMM,..THAT SPELLING IS QUESTIONABLE" :GOTO 130 
442? REM Sse ssceee sso ss 

444 REM NO ANTICIPATED ANSWER WAS MATCHED, 

446 REM SO GIVE THE CORRECT ANSWER. 

448 REM SsSsess 55255355 

490 F = F + 1 : PRINT "NO..." 3 - F "ATTEMPT(S) LEFT..." : IF F < 5 THEN 130 
460 PRINT "THE ANSWER I WANTED WAS THE" 

470 PRINT "UNITED STATES OF AMERICA!" 

480 GOTO 10000 

2000 REM ===KEYWORD SUBROUTINE=== 


162 Chapter Eight You're RIGHTS, I'm LEFTS, She's Gone... (But, I’ll STRING Along) 


RUN 


A DEMO OF THE KEYWORD SUBROUTINE. 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?THE UNITED STATES 
UNITED STATES OF WHAT??? 


WHAT DO WE CALL OUR FIFTY STATES 


COLLECTIVELY ?AMERICA 


YES» BUT WHAT OF AMERICA??? 


WHAT DO WE CALL OUR FIFTY STATES 


COLLECTIVELY?UNITED 
UNITED WHAT OF WHAT??? 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?THE UNITED STATES OF AMERICA THE HOME OF THE BRAVE AND FREE 
THAT‘’S IT.++VERY GOOD! 


Here is the KEYWORD subroutine: 


2000 
2002 
5004 
2006 
2008 
2010 
2012 
201d 
2016 
2018 
2020 
2030 
2040 
9042 
S044 
2046 
2048 
2050 
S032 
2054 
2056 
2038 
2060 
2066 
2068 
5070 
2170 
2180 
2190 


REM 
REM 


REM 


REM 


PROGRAM NAME: KEYWORD 


THIS SUBROUTINE READS A 
USER’S RESPONSE (MUST BE 
FROM: INPUT R$) AND CHECKS 
FOR A "KEYWORD" CHARACTER 
SEQUENCE MATCH AS DEFINED 
IN AS. IF A MATCH OCCURS, 


A$ IS SET TO "OK" OTHERWISE, "NO", 


NOTE: AS MAY CONTAIN UP TO 98 
KEYWORDS DELIMITED BY A * 


THE SUBROUTINE MAY BE USED WITH ANY 


PROGRAM BY FIRST LOADING THE 

"KEYWORD" PROGRAMs THEN ADDING 

STATEMENTS IN THE SEQUENCE: 
PRINT(S) (FOR THE QUESTION) 


INPUT R#& (FOR THE USER INPUT) 


A¢="DEFINED*#*KEYWORD*ANSWER" 
GOSUB 3000 


IF A$="OK" THEN PRINT (RESPONSE 
: GOTO (NEXT QUESTION) 


FOR MATCH) 
A$="NEXT#KEYWORD" 
GOSUB 3000 ETC., ETCe.. 
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2210 


REM LA - LENGTH OF ANSWER 


2220 REM LR - LENGTH OF RESPONSE 
2230 REM LW - LENGTH OF KEYWORD 
9240 REM NW - NO. OF KEYWORDS 
2200 REM Pi+sP2 - STRING POINTERS 
2260 REM R$ - USER’S RESPONSE 
2270 REM W$(5) - ARRAY FOR KEYWORDS 
5280 REM s22222ss222e2eee2zee2 

09300 LA = LEN (A$) 

2310 LR = LEN (R$) 

9320 IF LR < LA GOTO 5620 

0330 FOR I = 1705 

0340 FOR J = 1 TO LA 

2390 Pl = J 

2360 IF MID# (A$+sJs1) = "*" GOTO 5400 
o370 NEXT J 

0360 P2 = Pl 

39390 GOTO 3410 

S400 P2 = Pl - 1 

2410 WE(I) = MIDS (A$+1>P2) 

S420 IF Pi << > LA GOTO S450 

0430 NW = I 

2440 GOTO 3500 

2450 AS = MIDS (AS$sP1 + 1sLA - Pl) 
S460 LA = LEN (A$) 

0470 NEXT I 

SO00 Pi = 1 

2o10 FOR I = 1 TO NW 

vo20 LW = LEN (WH(I)) 

vo30 FOR J = Pl TO LR - LW + i 
sod0 P2 = J 

SOSO IF MIDS (R$+JeLW) = W$(I) GOTO 5580 
2280 NEXT J 

2270 GOTO 3620 

2080 Pl =P2 + LW + 1 

9990 NEXT I 

0600 A$ = "OK" : RETURN © 

0620 A$ = "NO" +: RETURN 

10000 END 

Sea a eee 


8.7 Posers and Problems 


i. 


2. 


3: 


Modify the “Password” program in Section 8.3 to accept ‘‘COM- 
MODORE 64’ as an alternate password. 

Write a program of your choosing using the Minimum Answer 
subroutine. 

Write a program of your choosing using the KEYWORD subroutine. 
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Chapter Nine 


x Thy Se i Wry Gs | 
é (LLG a= Ww wR sy 
<u 0 i Gus Lv Sale, 
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= _—- —_— —, a 


One Picture Is Worth 
Ten Thousand Words 


“What is the use of a 
book,” thought Alice, 


“without pictures or Think About This 
conversations?” (for Fun) 
Lewis Carroll A single English word can 


be formed from these let- 
ters. What is it? Use all 
the letters: 
PNLLEEEESSSSS. 


8 ne | 
Think About This 
(Seriously) 

Is it possible that graph- 
ics do not always enhance 
instructional computing 
materials? 
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9.1 Objectives 


For the successful completion of this unit, you should be able to: 


1. Explain and give an example of how to specify a location on the 
Commodore's screen (Section 9.2). 

2. Describe and give at least one example of how to PRINT the Com- 
modore graphic characters on the screen using a character string 
(Section 9.3.1). 

3. Describe and give at least one example of how to change the char- 
acter color, the border color, and the background color (Sections 
9.3.2 and 9.3.3). 

4. Describe and give at least one example of how to PRINT graphic 
characters using the CHR$ function (Section 9.3.5). 

5. Describe and give at least one example of how to PRINT graphic 
characters of different colors on the screen using the screen mem- 
ory map and color memory map (Section 9.4). 

6. Design, enter, and run a BASIC program of your own design using 
Commodore color graphics. 


9.2 What Are Graphics? 


Throughout history, our civilization’s progress has been the result of 
people's ability to understand complex concepts. Visual tools such as 
drawings, photographs, films, and video tapes provide the medium 
for making complex concepts understandable to the masses. With the 
development of the computer and its ability to analyze vast amounts 
of data rapidly, the computer's ability to portray visual information 
(graphics) naturally evolved. 

A computer graphic is somewhat like a printed map. Both are two 
dimensional surfaces with a vertical direction and a horizontal direc- 
tion. Just as any point on a map can be identified by its horizontal 
and vertical coordinates (latitude and longitude), any point on a com- 
puter’s screen can be specified by measuring its vertical and horizon- 
tal distance from the upper left corner. 

The horizontal distance scale is called by convention the x-axis (col- 
umn variable); the vertical distance scale the y-axis (row variable). 
Figure 9.1 shows the Commodore text screen with the x-axis across 
the top of the screen and the y-axis down the left side of the screen. 
When the position of a character is specified, the distance on the x- 
axis is specified first, followed by the distance on the y-axis (the col- 
umn and row coordinates). For example, 20,12 specifies the location 
20 columns to the right in the x direction and 12 rows down in the y 
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FIGURE 9.1 
Commodore text 
screen 


X-axis 


20 25 30 35 39 


y-axis 


Background 


Border 


direction. Similarly, the corners of the Commodore text screen can 
be specified by 0,0 (upper left); 39,0 (upper right); 0,24 (lower left); 
and 39,24 (lower right). 


9.3 Commodore Text Mode Graphics 


The Commodore microcomputers create graphics by using an alter- 
nate set of characters on the screen. Color graphics are available in 
16 colors but require the Commodore microcomputer to have a color 
monitor or television connected. Text mode graphics, as their name 
implies, use character strings and the PRINT statement to create 
graphics on the normal text screen. 


9.3.1 Printing Graphic Characters 


There are 62 graphic shapes accessible from the Commodore’s key- 
board. Each letter key, A through Z, and a few special character keys 
have their corresponding graphic characters drawn on the front of 
the keys. The graphic character on the right side of the key can be 
printed by holding down the SHIFT key while simultaneously press- 
ing the desired shape key. The graphic character on the left side of 
the key can be printed by holding down the COMMODORE key (the 
key with the Commodore logo located next to the left SHIFT key) 
while pressing the desired shape key. 
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Example: 


Example: 


These shapes can be included in a PRINT statement to be printed 
anywhere on the Commodore's screen like regular text. 


PRINT "{SHIFT}5" 
PRINT "{COMMODORE}+" 


In the first example, a heart will be printed on the screen. The 
second example will cause a checkered box to be printed on the screen. 
Note: In this chapter the use of a key rather than a BASIC statement 
will be indicated by enclosing the key’s name with braces such as 
{SHIFT} and {COMMODORE}. When you see this type of notation, 
remember to press the indicated key. Typing {, S, H, I, F, T, and } will 
not create the desired result. 


9.3.2 Adding a Linle Color 


The Commodore has 16 colors that can be used to print both text 
characters and graphic characters. Normally text and graphics are 
printed in a shade of light blue. This color can be changed by holding 
down the CTRL key while simultaneously pressing any number key 
from 1 through 8. The names of the colors corresponding to the num- 
ber keys are printed on the front of the keys. Eight additional colors 
are available by holding down the COMMODORE key while pressing 
a number key from 1 through 8. The table below indicates the 16 
possible colors and their key combinations. 


Key Key 

combination Color combination Color 
{CTRL} 1 Black {COMMODORE} 1 Orange 
{CTRL} 2 White {COMMODORE} 2 Brown 
{CTRL} 3 Red {COMMODORE} 3 Light red 
{CTRL} 4 Cyan {COMMODORE} 4 Gray 1 
{CTRL} 5 Purple {COMMODORE} 5 Gray 2 
{CTRL} 6 Green {COMMODORE} 6 Light green 
{CTRL} 7 Blue {COMMODORE} 7 Light blue 
{CTRL} 8 Yellow {COMMODORE} 8 Gray 3 


Just as graphic characters can be incorporated into a PRINT state- 
ment, color changes can also be included in a character string in a 
PRINT statement. 


PRINT "{CTRL}3HELLO" 


The example will print the word HELLO in red letters on the screen. 
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Example: 


Program Example: 


9.3.3 Changing Border and Background Colors 


Background and border colors can also be controlled from BASIC on 
the Commodore microcomputer. The current background color and 
border color are stored in two memory locations in the computer. 
These memory locations must be changed in order to change the bor- 
der and background colors. To do this from BASIC you must use the 
POKE statement. 


POKE 33280 +2 
POKE 3328155 


In the first example, the number 2 will be POKEd (stored) into the 
memory location 53280. This is the memory location used to define 
the border color. In the second example, the number 5 will be POKEd 
into the memory location 53281. This is the memory location used to 
define the background color. The following chart lists the border and 
background color codes used with these two POKE statements: 


Border Color: POKE 53280,color 
Background Color: POKE 53281 +color 
QO Black 6 Blue ii Gray 1 
1 White 7 Yellow 12 Gray 2 
2 Red 8 Orange 13 Light green 
3 Cyan 9 Brown ' 14 Light blue 
4 Purple 10 Light red 15 Gray 3 
» Green 


9.3.4 Somewhere Over the Rainbow 


The following color graphics program uses the concepts introduced 
above. Enter and RUN it: 


NEW 
10 POKE 33280;14 
Statement 10 changes the border color to light blue, and statement 20 changes the 
background color to white. 
20 POKE 33281;1 
39 PRINT "Q"§ 
Statement 30 clears the screen. 
40 FOR l=1 TO 22 | 
Statement 40 defines a loop to be executed 22 times. 
90 PRINT TAB(I)5 
Statement 50 TABs over the number of columns equal to the value of the loop 
counter, I. 
PRINT "{CTRLI5 {SHIFT}*# {CTRL}9 {SHIFT}*# {CTRL}O"$ 
Statement 60 changes the text color to purple, {CTRL}5, PRINTs a triangle on the 
screen, {SHIFT}*, reverses the shape, {CTRL}9, PRINTs the reversed triangle, 
{SHIFT}*, and reverses the shape back to normal, {CTRL}0. 


GC 


nal 
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7O PRINT "{CTRL¥7 {SHIFT}* {CTRL39 {SHIFT}* {CTRL}O"$ 


Statements 70-110 repeat the process for each of the remaining colors of the 
spectrum: blue, green, yellow, orange, and red. 


80 PRINT "{CTRLG6 {SHIFT}* {CTRL}9 {SHIFT}* {CTRL}O" S$ 
90 PRINT "{CTRL¥8 {SHIFT}* {CTRL}9 {SHIFT}* {CTRLIO"S 
100 PRINT "{COMMODORE}1 {SHIFT}* {CTRLY9O {SHIFT}* {CTRL}O"§ 
110 PRINT "{CTRL}3 {SHIFT}* {CTRL}9 {SHIFT}* {CTRL}O"3 
120 NEXT I 
Statement 120 completes the FOR-NEXT loop, and statement 130 ENDs the 
program. 


130 END 


Note: To return the screen to its normal border, background, and 
text colors, hold down the RUN/STOP key while simultaneously 
pressing the RESTORE key. 


9.3.5 String Function CHRS 


The CHR$ function returns the character whose code number is sup- 
plied as an argument to the function. Every character has what is 
called its ASCII code (American Standard Code for Information Inter- 
change). These are standard codes for all alphabetic characters and 
punctuation marks. Commodore microcomputers have their own codes 
for the special graphic shapes and text colors. See Appendix B.10 for 
a complete list of the Commodore's ASCII codes. 


Example: 10 PRINT CHR$(147) 
20 FOR X=1 TO 19:PRINT CHR$(29)3sNEXT X 
30 FOR Y=1 TO 11:PRINT CHR$(17)3sNEXT Y 
40 PRINT CHR$(144) 3CHR$(97) 


The example PRINTs the ace of spades in approximately the center 
of the screen. CHR$(147) clears the screen, CHR$(29) moves the cursor 
one column to the right, CHR$(17) moves the cursor one row down, 
CHR$(144) changes the text color to black, and CHR$(97) prints a 
spade on the screen. 


9.3.6 PROGRAM 23: Random Colored Lines 


The text mode graphics described in this chapter provide the basis 
for adding diagrams, charts, and illustrations to instructional com- 
puting materials. Program 25 demonstrates the use of these state- 
ments to generate unique art. The program is designed to: 


1. Clear the screen. 

2. Draw 100 vertical and 100 horizontal lines of varying lengths at 
random locations on the screen. 

3. Draw each line using a random color. 


i 
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PROGRAM 27 


RUN from disk and refer to the listing of Program 25. Since Program 


25 is dynamic, it must be RUN to be appreciated. The actions on the 
screen cannot be sufficiently illustrated by words or pictures in this 


book. 


10 


20 
30 
4o 
20) 
60 
70 
BO) 
90) 


REM 


Statements 10-150 document the program and give a list of the important 
variables and what they represent. 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
150 REM 
The border is set to black, the background to gray, and the screen cleared in 
statements 160-210. 


170 
180 


190 POK 
200 POK 
210 PRI 


220 
230 
240 
200 


260 
270 
280 
290 


300 
310 
320 
330 


REM 


REM 
FOR 


PROGRAM 25 DESCRIPTION 


DEMONSTRATION OF TEXT GRAPHICS, 
THE SCREEN WILL BE COLORED BLUE 
AND 100 RANDOM LINES OF RANDOM 
COLORS WILL BE DRAWN, 


A - RANDOM STARTING POINT 
B - RANDOM ENDING POINT 
C - RANDOM ® OR Y POINT 
X - RANDOM COLOR CODE 
CRS - COLOR 6TRING 


REM COLOR IN BACKGROUND 
REM 


E 53278040 
E 532781+11 
NT CHR$(147) 


T=1 TO 100 


Statement 250 defines a loop that is terminated at statement 520. This loop will be 
executed 100 times. 


REM 


REM 
GOSUB 2000 


Statement 290 calls the subroutine at line 2000, which selects a random color. 


REM 
REM PLOT VERTICAL LINE 
REM 
GOSUB 1000 


Statement 330 calls the subroutine at line 1000, which chooses three random 
numbers for variables A, B, and C. 
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Statements 340-380 draw a vertical line from the value of A on the y-axis to the 
value of B on the y-axis at the point on the x-axis of value C. See if you can figure 
out the programming logic. 

340 PRINT CHR#$(19) 5CRS$3 

350 FOR J=i TO A:PRINT CHR#(17)5:NEXT J 

360 FOR J=1 TO B-A+1 

370 FOR K=1 TO C+8:PRINT CHR$(29)$:NEXT K 

380 PRINT CHR#(18) 5CHRS(32) SCHRS( 146) 


390 NEXT J 
400 REM s=ssssss2ss2s2e5 
410 REM ANOTHER RANDOM COLOR 
70 REM sss22222e2e2ee25 
430 GOSUB 2000 
Statement 430 selects another random color. 
440 REM sssseessnnneee5 
430 REM PLOT HORIZONTAL LINE 
460 REM s2s2ssssses2e2ee 
470 GOSUB 1000 


Statement 470 selects another set of random numbers for variables A, B, and C. 
480 PRINT CHR$(19) 5CR$3 
In statements 480-510, a horizontal line is drawn from the value of A on the x- 
axis to the value of B on the x-axis at the point on the y-axis of value C. 
490 FOR J=1 TO C:PRINT CHR$(17)5:NEXT J 
200 FOR J=1 TO At8:PRINT CHR$(29)5:NEXT J 
O10 FOR J=1 TO B-Ati:PRINT CHR$(18) SCHR$(32) SCHRS(146)5=:NEXT J 
2020 NEXT I 
Since statement 520 terminates the loop begun at statement 250, 100 random 
vertical and 100 random horizontal lines are drawn on the screen. 
230 END 
1000 REM ssse222sss2eee2 
1010 REM SUBROUTINE TO CHOOSE 
1020 REM THREE RANDOM POINTE 
1030 REM sssssse2s222s222 
1040 LET A=INT(RND(1)#24) 
1050 LET B=INT(RND(1)#24) 
1060 LET C=INT(RND(1)#*24) 
1070 IF A=B THEN 1040 
1080 IF A¢=B THEN RETURN 


1090 D=A 

1100 A=B 

1110 B=D 

1120 RETURN 

2000 REM seo s=SseSsesess 

2010 REM RANDOM COLOR SUBROUTINE 
2020. REP Sfeeeeessasas=sss 


£030 LET K=INT(RND(1)*8+1) 

2040 ON KX GOTO 2050 +2060 +2070 +2080 +2090 12100 .21101+2120 
2030 CR$="0":RETURN 

2060 CRE="1":RETURN 
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2070 CRE="2":RETURN 
2080 CR$="3" RETURN 
2090 CRE="4":RETURN 
2100 CRE="S":RETURN 
2110 CR="G":RETURN 
2120 CRS="7":RETURN 


9.4 Commodore Screen Graphics 


In addition to being able to print the Commodore graphics charac- 
ters on the screen with the PRINT statement, the programmer can 
POKE them directly into the computer’s screen memory locations. 
All microcomputers keep track of which characters are printed where 
on the screen in an area of the computer’s memory called the ‘‘screen 
memory map.’ On the Commodore, this memory map is available to 
the programmer through the POKE statement. 


9.4.1 The Screen Memory Map 


Since the Commodore's screen contains 25 rows of 40 characters, 1000 
memory locations are needed for the screen memory map. These loca- 
tions begin at memory location 1024 and continue through 2023. Fig- 
ure 9.2 illustrates the Commodore's screen and its associated memory 
locations. 


COLUMN 


FIGURE 9.2 
10 20 30 39 


Screen memory map 


Lt TT TT TT TTT TO 
ERR REE 
BRR RRR RRR REE 
LT TT TT TT 
LT TT TT TT 
EERE RE REE RRR 
LT tt Te TT 
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Example: 


Example: 


Example: 


A formula to calculate the location of any point on the screen can 
be developed. Let X represent the column location from 0 through 39 
(left to right), and let Y represent the row location from 0 through 24 
(top to bottom). The screen memory map location can be calculated 
by multiplying Y times 40, adding it to X and the starting memory 
location, 1024. 


POINT = 1024 + K + 40 * Y¥- 


To place a text or graphic character on the screen, first determine 
the column and row (X and Y) location and calculate the screen mem- 
ory location (POINT). Then POKE the screen memory location with 
the screen display code for the desired character. (Note: The screen 
display codes are not the same as the ASCII codes used in the CHR$ 
function. See Appendix B.11 for a table of the screen display codes.) 


10 K=20 
20 Y=1? 


30 POKE 1024+k+40*Y 190 


The example will print a diamond in approximately the middle of the 
screen. 


9.4.2 Color Memory Map 


The Commodore computer keeps track of the color of each character 
on the screen just as it keeps track of each character. One thousand 
memory locations are set aside for this purpose, beginning with mem- 
ory location 55296 and continuing through 56295. Figure 9.3 illus- 
trates the Commodore's color memory map. 

A formula similar to the one used to calculate the screen memory 
location of a point on the screen can be used to calculate the color 
memory location. When the color memory location is POKEd with 
one of the color display codes—the same 0-15 color codes used for 
the border and background colors (see Section 9.3.3)—the character 
printed at the corresponding screen location will change colors. 


10 K=20 
20 Y=l2 
30 POKE SS296+K+40#4 2 
40 POKE 1024+K+40#Y 590 


The example prints a red diamond in approximately the middle of 
the screen. 
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FIGURE 9.3 
Color memory map 


Program Example: 


COLUMN 
10 20 30 — 39 


| © 


ss206-hfTTTIITiltiILiiTiLiiTiliiiITIITIIIIIITILLLILI Ll @) 
CK ee ee 
55376 LTILILIITIITILIIrTLclrlcliLiLelLicllirctlLLiotititttt 
55416 CLITITITITITIILLircrrcrrcrrirritel_LeLiLiLleotoo ellie 
55456 LIITITTIITCLII_cLLiLLiLirrtiflirtifiiftfelfeleocece 
55496 TTITTILiLiilLilLtilrirrtcrtcriceorlilLirtrieletitefrefclntectlinin 
55936 CLITrTrririirtiliiticlteieertlcLeleeiLle_Lci llores 
55576 [TITITITITIIIIIILIIilTrlirtlitrliltirtcrcror_ceetetrrtteen 
55616 LILILILLLILIILILIITrTCrircrrcrii Leer rcrlcceorlceitoelee 
55656 LILI TTTTIITiriiitiifrrtctrisceteetitere = 
556906 LITIIIITIILIIILiiTiclolclo cel crloco leer 105 
55736 TTTTITIITTTffrfrfrfftieeteeeereceeeeeeLe Ec —~© 
55776 LITIITIIIIIIi Lif rircrlcreotiiierrercrrletcte_Leeee reer ac 
55816 TrTTLILIT Tce ttt fleece 
55856 TTT TTT Tee Le Lee rrr 
55896 TTTT Leer cele Lor rere 
55936 TITTIT TTT TTTTll TT eceeoecoéroeére 
55976 TITITI TI TI TTT rele tLe er 
56016 TITTIT TTT Trey Lecce rr rere 
56056 TrTTT ITT TTT eee reer 
56096 PTT rr rrr} 20 
56136 TTTT TTT rete eee cece rere 
56176 TITTI TTT ITT rere tor 
56216 TTT TT TT TTT Leer errr 
56256 TIITT TTT Tttttt Tritt 24 


9.4.3 A Graphic Example 


The following graphics program uses the screen memory map and 
color memory map. Enter and RUN it: 


10 POKE 33280;0:POKE 53281 +0 
Statement 10 changes the border and background color to black, and statement 20 
clears the screen. 

20 PRINT CHR$(144) 

30 FOR I=1 TO 100 
Statements 30 and 90 define q loop executed 100 times. 

40 C=INTCRND(1)#154+1) 
Statements 40-60 choose a random color (C), a random x-axis position (X), and a 
random y-axis position (Y). 

20 K=INTCRND(1)#40) 

GO Y=INTCRND(1)*20) 

70 POKE S5296+X+40#Y 5C 
Statement 70 sets the color memory map to the selected color, and 80 plots a star 
at the chosen coordinate. 

80 POKE 1024+K+40#Y 42 

90 NEXT I 

100 PRINT CHR#(19) 
Statements 100-150 print a message. 

110 FOR R?i TO 21 

120 PRINT CHR$(17)3 

130 NEAT R 

140 PRINT "THE STARS AT NIGHT...ARE BIG AND BRIGHT" 


9.4 Commodore Screen Graphics 175 


150 PRINT " DEEP IN THE HEART OF TEXAG!" 


1G0 GET A$ 
Statements 160 and 170 wait for a key to be pressed, and then 180 ENDs the 
program. 

170 IF A$=""THEN I60 

180 END 


9.7 Incorporating Color Graphics into 
instrucTioNAL Computing Materials 


When developing instructional computing materials that contain 
graphics, some special planning is necessary. In addition to the nor- 
mal designing of the program, the graphic screens used in the pro- 
gram should be sketched or plotted on graph paper. Longer tutorial 
programs may require a storyboard: a series of sketches of the graph- 
ics with the related textual information or questions included. 

When designing the program, the graphics are most easily done in 
subroutines that can be called as needed in the program. The subrou- 
tines can be easily tested by typing RUN and the starting line number 
of the subroutine. (For example, RUN 800 would execute the subrou- 
tine beginning at line 800.) 


9.3.1 PROGRAM 26: Shape-Recognition Drill 


Program 26 is a drill-and-practice program that displays a shape on 

the screen for the student to identify. Three shapes are used: rectangle, 

square, and triangle. The program randomly presents ten questions, 

presents the shape, and keeps track of the student’s score. The pro- 
gram elements required in the design are: 


1. Instructions to the student. 
2. A loop to: 
a. Choose one of the three shapes. 
b. Branch to the appropriate subroutine. 
3. Three subroutines (rectangle, square, and triangle) to: 
a. Plot the shape, centered on the screen. 
b. Ask the student to identify the shape. 
c. Input the student’s answer. 
d. Display whether the answer is right or wrong. 
e. Tally the correct answers. 
4. Display the number of correct answers. 
5. End the program. 


RUN from disk and refer to the listing of Program 26. 
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PROGRAM 26 


10 REM s=s22ss=ssss2225 
Statements 10-140 document the program. 
20 REM PROGRAM 26 DESCRIPTION 
30 REM ssss22s22s22525 
40 REM SHAPE-RECOGNITION DRILL. 
50 REM PROGRAM DRAWS A SHAPE ON THE 
GO REM SCREEN AND ASKS USER TO IDENTIFY 
70 REM IT. SHAPES ARE: RECTANGLE: 
80 REM SQUARE» AND TRIANGLE, 
90 REM s=sssssssss5555 
100 REM VARIABLE DICTIONARY 
110 REN ssessscsesccsccs 
120 REM ANS$ - USER’S RESPONSE 
130 REM C - NUMBER CORRECT 
140 REM Z - RANDOM SHAPE 
150 REM SSSssSss2ses5s2 
Statements 150—270 provide the student with basic instructions and ask if the 
student is ready. When the student is ready, the program will continue. 


160 REM PRINT INTRODUCTION 


170 REM sesteeeesne5ea5 

180 PRINT "Q"5 

190 PRINT 

200 PRINT "I AM GOING TQ SHOW YOU SOME SHAPES." 
210 PRINT 

220 PRINT "YOU TELL ME WHAT KIND OF SHAPE IT IS." 


230 PRINT 


240 PRINT 
200 PRINT "ARE YOU READY (Y OR N)"5 
260 INPUT ANS$ 
270 IF ANS$i3"Y" THEN 180 
280 C=0 
Statement 280 sets the correct answer counter, C, to zero. 
ZOO REM “fesse 2 Sees ees- 
300 REM ASK 10 QUESTIONS 
SLO REM cs2=sssssescesscs 
320 FOR I=1 TO 10 
Statement 320 begins a loop that is terminated at statement 420. This loop is 
executed ten times. 
330 PRINT "C"s5 
Statement 330 clears the screen. 
340 FOR J=i TO 22:PRINT CHRS(17)5:NEXT J 
Statements 340 and 350 PRINT the answer codes at the bottom of the screen. 
390 PRINT "R=RECTANGLE S=SQUARE T=TRIANGLE" 
S60 REM. sSessos=sssSs25 
370 REM CHOOSE RANDOM SHAPE. 
380 REM BRANCH TO SUBROUTINE. 
JOO REN SSSSesssseesee= 
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400 


410 
420 
430 


440 
430 


460 
470 
480 
1000 


1010 
1020 
1030 


1040 
1050 


1060 
1070 
1080 
1090 
1100 


11190 
1120 
1130 
1140 
2000 


2010 
2020 
2030 
2040 
2050 
2060 
2070 


Z2=INT(RND(1)*#4+4+1) 

A random number from I to 3 is chosen at statement 400, and the corresponding 
subroutine is branched to at statement 410. 

ON Z GOSUB 1000,2000,3000 

NEXT I 

PRINT "C"§ 

After the loop has been executed ten times, the screen is cleared in statement 430. 
PRINT 

PRINT "YOU GOT"SCs"SHAPES CORRECT!" 

The number of correct responses is reported to the student in statement 450, and 


the concluding remarks are made in statement 470. The program ends at 
statement 480. 


PRINT 
PRINT "SOQ LONG FOR NOW." 
END 
REM ====== 
The subroutine beginning at statement 1000 draws a square. 
REM SQUARE 
REM sS22sse 
PRINT CHR$(19)5 | 
Statement 1030 homes the cursor without erasing the screen. 
PRINT:PRINT 
PRINT TAB(10)3"__ 
Statements 1050—1090 draw the square. 
FOR J=1 TO lz 
PRINT TAB(10)5"| lig 
NEXT J 
PRINT TAB¢1 0.4? — SS —"* 
PRINT:PRINT "WHICH SHAPE I5 IT"$ 
Statement 1100 PRINTs, ‘Which shape is it?’’; 1110 inputs the student's answer 
into the variable ANS$. If the student's answer is “S”’ for square, execution 
branches to the subroutine at 4000. If another answer is given, the program 
branches to the subroutine at 5000. 
INPUT ANS$ 
IF ANS$="S" THEN GOSUB 4000 
IF ANS$<2"S" THEN GOSUB 3000 
RETURN 
REM sss==s=225 
The subroutine to draw a rectangle begins at line 2000, and the subroutine to 
draw a triangle begins at line 3000. The logic for these routines is similar to that 
for the square. Study them to discover the techniques used. 
REM RECTANGLE 
REM sSsssesee 
PRINT CHRS$(19) 5 ‘ 
PRINT:PRINT 
PRINT TABG 709" 
FOR J=1 TO 10 
PRINT TAB(7)3"| , 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
4000 
4010 
40270 
4030 
4040 


4050 
4060 
4070 


5000 


S010 
3020 
S030 
SOd0 
5050 
2060 


NEXT J 

PRINT TAR. 22 SO 
PRINT: PRINT "WHICH SHAPE IS IT"5 
INPUT ANS$ 

IF ANS$="R" THEN GOSUB 4000 

IF ANS$<2"R" THEN GOSUB 3000 
RETURN 

REM =s=s=ss=s= 


REM sessecc=s 

PRINT CHRS(19) 5 

PRINT:PRINT 

PRINT TAB(16)3"/\" 

FOR J=1 TO 10 

PRINT TAB(1i8-J)3"/"sSPC(J#2)5"\" 

NEXT J 

PRINT TAB(8) 3° ——— 

PRINT: PRINT "WHICH SHAPE IS IT" 

INPUT ANS$ 

IF ANS$="T" THEN GOSUB 4000 

IF ANS$23"T" THEN GOSUB 5000 

RETURN 

REM Sescecscesssces 

REM ANSWER CORRECT 

REM Soe ecteceee sess 

PRINT 

PRINT "YOU ARE CORRECT!" 

The routine beginning at statement 4040 informs the student that the answer was 
correct, and 4050 adds 1 to the correct answer counter, C. 
C=C+1 

FOR J=1 TO 1000:NEXT J 

RETURN 

Statement 4060 waits for a few seconds, and 4070 RETURNS to the shape 
subroutine from which it branched. 

REM s2sc2sezeesce 

The routine beginning at statement 5000 informs the student of a wrong answer 
(statement 5040). 

REM ANSWER WRONG 

REM sSsecsse see => 

PRINT 

PRINT "SORRY»s TRY ANOTHER," 

FOR J=1 TO 1000:NEXT J 

RETURN 


Statement 5050 loops 1000 times to slow the pace, and statement 5060 RETURNs 
to the shape routine from which it branched. 
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9.6 Some Notes About Using Color 


The graphics statements in this chapter can be employed to “‘add a 
little color” to instructional computing materials. However, there are 
both positive and negative factors to be considered when using color: 


. Color can increase attention. 

. Color can increase motivation. 

. Color is less fatiguing to the eye than black and white text. 

. If color is used for highlighting concep it must be used consis- 
tently throughout the program. 

. Limit the number of colors used at any one time to four. 

. Use highly saturated (bold) colors. 

. Consider color stereotypes. (Stop signs must be red.) 

. The greater the contrast between two colors (i.e., complementary 
colors), the greater the visual impact. 

. Remember that 10% of all males and 5% of all females are color- 
blind. 

10. Most important: If you emphasize everything, nothing on the screen 

will stand out! 
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9.7 Posers and Problems 


1. Correct any errors in the following statements: 


10 PRINT "Q" 

20 POKE 3300013 

30 POKE 33281517 

30 PRINT "{CTRLI{OFHELLO. CAN YOU COME OUT AND PLAY?" 
40 END 


2. What would result from the execution of the following statements? 


10 PRINT "9" 

20 FOR N=l TO 9. 

30 PRINT CHR$(17) sCHR$(29) s;CHRS (29) 5 
40 NEXT N 

20 PRINT CHR#(117) sCHR$(113) sCHRS(1095) 
GO FOR N=1 TO 159 

70 NEXT N 

80 PRINT "9" 

90 FOR N=i TO 9 

100 PRINT CHR#$(17) SCHRS(29) SCHRS(29) 5 
110 NEXT N 

120 PRINT CHR$(106) 5CHR#$(113) 5;CHRS(107) 
130 FOR N=1 TO 150 


180 Chapter Nine One Picture Is Worth Ten Thousand Words 


140 NEXT N 
150 GOTO 10 
160 END 


. Use the CHR$ function to draw a scene of your choice on the screen 
(e.g., house, train, space ship, and so on). 

. Write a graphics program that displays a colorful checkered 
(gingham) pattern on the screen. 

. Write a program that displays 16 bars of different colors on the 
screen. (This program can be used as a test pattern to adjust the 
color on the computer’s monitor.) 

. Write a program using color graphics to draw rectangles on the 
screen of random sizes. (Hint: Convert Program 25.) 
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AN Introduction To The sie 
and Development of 


INSTRUCTIONAL Computing 
Materials 


Part Two 


Chapter Ten 


What Are Your INTENTIONS? 


“The trouble with not 
having a goal is that you 
can spend your life run- 
ning up and down the 
field and never scoring.” 
Bill Copeland 


“It takes less time to doa 
thing right than to 
explain why you did it 
wrong.” 

H. W. Longfellow 


“And what is writ is writ. 
Would it worthier!”’ 
Lord Byron 


“Garbage in, garbage 
out.” 
Anon. 


“A thing of beauty is a joy 
forever.” 
John Keats 


Think About This 

(for Fun) 

Using each number only 
once, arrange the figures 
0,1,2,3,4,5,6,7,8,9 so that 
their sum is 100. 


ee 
Think About This 
(Seriously) 

Should every student have 
had an exposure to com- 
puters and their uses by 
the time of graduation 
from high school? 
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10.1 Objectives 


For the successful completion of this chapter, you should be able to: 


1. Identify the steps of a ‘systems approach’ to the design of instruc- 
tional computing materials (Section 10.3). 

2. Identify an area of personal interest within which to apply instruc- 
tional computing. 

3. Outline a rationale, a set of quantitative performance objectives, 
and a sequence of instruction for a unit of instructional computing 
materials (Sections 10.3.1—10.3.3). 


10.2 Designing Instructional Computing Materials 


A working knowledge of BASIC (or any programming language) pro- 
vides only a very small step toward the actual development of edu- 
cationally valid instructional computing materials. In fact, such 
materials have been designed by educators with no computing expe- 
rience whatsoever! In these cases, the completed design is given to a 
computer programmer (who often knows very little about the specific 
academic area) for translation into an executable computer program. 
The executable program is tested, refined, and eventually put to use 
in the classroom. Thus, the key to the development of valid educa- 
tional materials rests initially with their design. 

The entire design and development process can be improved if both 
the author and the programmer have something more than a casual 
awareness of the other’s area of expertise. However, it is not often 
that the author and programmer are one and the same person, with 
expertise in both programming and a given academic area. Very few 
educators have high proficiency in programming techniques and 
strategies. Likewise, few programmers know the intricacies of learn- 
ing theory, instructional design, teaching methodology, and so on. 

The wide acceptance and use of microcomputers in education is 
bringing about a gradual change in this, however. More and more, 
both inservice and preservice teachers are gaining knowledge in com- 
puter literacy and instructional computing uses. With this knowledge 
will come improved materials and improved use of this medium of 
instructional technology that, literally, is at our fingertips. 

Design! It is not too unusual for someone to have the feeling that 
they have never designed anything! However, if they have ever wanted 
anything, anything at all, that was eventually obtained through their 
efforts, they have experienced the design process! This process, then, 
is really something common to most people, and it has at least one 


a es ee 
186 ChapterTen What Are Your Intentions? 


fringe benefit: it makes us think logically and creatively. That is, the 
procedure—from identification of an objective to its attainment— 
becomes a series of steps. 

Often, this logical procedure is called an algorithm, and, in fact, it 
is a logical series of steps that must be followed in designing any 
effective package of instructional materials. This process, however, is 
amplified greatly in designing and developing interactive instruc- 
tional computing materials. There are several reasons for this ampli- 
fication: the primary ones are that instructional computing requires 
immediate feedback and active user participation. The design of an 
instructional program—for better or worse—rapidly becomes appar- 
ent to a user through its interactive nature. 


10.3 The Systems Approach 


The design stage of instructional computing materials is one part of 
a process that is used extensively in the overall development of edu- 
cational materials. Although this process is known by several names, 
and the steps may differ slightly among versions, it may be summa- 
rized as follows: 


. Statement of the rationale for use 

. Statement of quantitative performance objectives 
. Definition of the instructional sequence 

. Program construction 

. Debugging 

. Pilot testing 

. Revision 

. Use in the classroom 

. Revision 

10. Evaluation 
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These ten steps comprise the process often called a systems approach 
to instructional design. However, since it does involve a logical 
approach, another name might be, ‘“‘A Common Sense Approach to 
Instructional Design.” 

The first three steps constitute the design stage and will be dis- 
cussed in this chapter. The following seven steps will be discussed in 
Chapter 11. Note that, although all of these steps are important, the 
contents of each are determined solely by the author(s) of the instruc- 
tional computing materials. In other words, the steps and general 
procedures for each can be outlined in this book, but the reason for 
any given instructional computing lesson—what it does and how it 
does it—can only be determined by its author(s). 
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10.3.1 The Rationale 


Assume that an area of interest has been identified for the design and 
development of a unit of instructional computing material. Can rea- 
sons be stated why this particular area of interest should be taught 
in the first place? Can reasons be stated why a computer should be 
used? In other words, the rationale is the answer to Why?: Why teach 
this academic concept, and why use the computer as an adjunct to 
the instructional process? If the why can not be answered in both 
instances, the design stage should be terminated and another area of 
interest identified. 

The following examples of rationales are taken directly from 
instructional computing units developed by various teachers. Note 
how brief or how thorough such a rationale may be. The first example 
is very brief: 


The purpose of this learning module (unit) is to enrich the student’s 
personal communication skills, provide a background knowledge for future 
study in business and economics, and provide a beginning knowledge base 
of terminology for application in the selected career area. Terminology is 
essential for communicating in a specialized technological society. This 
module provides a beginning for building a vocabulary base in business, 
management, and economics. 


The second, slightly longer rationale is very specific: 


Correct association of compound names with molecular formulas is a 
necessary skill for continuing successfully in a chemistry course. The names 
and formulas for compounds are used interchangeably throughout most 
chemical literature. Mastery of chemistry textbook reading material requires 
the correct identification of compound names and formulas. In the chem- 
istry laboratory, names and formulas are also used interchangeably in 
labeling containers and in written laboratory procedures. A serious error. 
could result in the laboratory if a student incorrectly identified a compound 
used in the experiment. | 

The computer can serve as an effective tool for the student who is learn- 
ing to identify the names and molecular formulas of compounds because: 
1) it allows the student to work at his/her individual pace, 2) it provides 
immediate feedback to the student after each answer is given, 3) it may 
randomly generate different questions so that the student has a variety of 
practice, 4) it scores the student at the end of the drill providing an esti- 
mation of progress, and, 5) it may be adapted for use in both drill exercises 
and testing. 


The third example is as specific as the second and is slightly more 
expansive: 


Preservice educational preparation for nursing in a coronary care unit 
generally focuses on dysrhythmia recognition. Given various electrocar- 
diographic tracings, the learner is expected to label the patterns by origin 
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and conduction of impulse, rate, and probable clinical sequela. She/he is 
rarely provided opportunity to project and evaluate nursing actions based 
on recognition of the dysrhythmia. Consequently, these decision-making 
skills are usually learned ‘‘on the job" under tutelage of a more experienced 
nurse practitioner. The trainee’s learning depends, then, on numerous var- 
iables—the experienced nurse’s willingness to teach, clinical situations 
which “happen” to be present, critical time factors which may or may not 
permit the trainee opportunity to project appropriate actions before action 
is required, and numerous other equally uncontrollable factors. Preservice 
teaching methods can, and should, be developed which facilitate the train- 
ee’s acquisition of decision making/judgment skills in environments cre- 
ated deliberately for learning; learning within the setting of a coronary 
care unit is best reserved for only those abilities that cannot be synthesized 
in any other environment. | 

Simulation is one possibly effective preservice teaching technique to 
facilitate acquisition of decision making/judgment skills. Simulation teaching 
strategies have been noted to enable the student to: 1) actively participate 
in learning, 2) integrate theoretical concepts to simulated life situations, 
3) desensitize oneself against threatening situations, 4) be presented with 
identical ‘hands-on experiences’ as those presented fellow learners, 5) 
experience some of the doubts, competencies, difficulties, and anxieties 
that would be experienced in actual clinical settings, and, 6) respond in a 
safe standardized context free of concern about harming the patient or 
pleasing a tutor. 

What are the advantages of using the computer in designing these sim- 
ulated experiences? First, the selection and sequencing of problems can be 
randomized independent of instructor or learner choice at the moment— 
a situation more closely approximating the ‘‘randomness’’ of the actual 
clinical setting. Second, the learner can be provided with immediate feed- 
back on decisions made. Third, since computers are interactive, the stu- 
dent's response has a measurable effect on the material as it is presented. 
Fourth, the learner can choose the time for instruction, times when faculty 
may or may not be available. Fifth, the instructor can reconstruct precisely 
the sequence in which the student responds to the simulated clinical sit- 
uation, diagnose errors in approach, and pinpoint reinforcement and help. 

In summary, the rationale underlying this unit rests on three premises: 
1) A need for preservice acquisition of decision making/judgment skills 
exists. 2) Simulated experiences can assist in acquisition of these needed 
skills. 3) Use of the computer enhances the student’s independence, assists 
instructor diagnosis of learning difficulties, and facilitates the process of 
simulating clinical situations. 


10.3.2 Quantitative Performance Objectives 


Users will be interacting with your programs. Do they know what is 
expected of them before, during, and after this interaction? Before a 
user sits down at a computer terminal, information should be pro- 
vided that at least outlines the prerequisites for interaction, what the 
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interaction will deal with, and, specifically, what constitutes a suc- 
cessful interaction. For what goals should the user strive, and how 
will it be determined if these goals are attained? 

Continuing with our examples from the previous section, a state- 
ment of quantitative objectives might be as brief as: 


General: Given a basic list of business terms, the student will develop a 
working knowledge of basic business terms. The student will demonstrate 
this ability by completing successfully the instructional computing units 
focusing on terminology mastery. 


Specific: Given a set of terminology, the student will complete the instruc- 
tional computing unit with 90% or better accuracy on a 20-word list. 


The second example is succinct and equally brief: 


1. The student will be able to state the name of a compound when given 
its molecular formula with 80% accuracy. 

2. The student will be able to state the molecular formula of a compound 
when given its name with 80% accuracy. 


The third example is longer but also quite specific: 


Given a cardiac rhythm strip, the student will identify the pattern by site 
of origin and rhythm with 100% accuracy. 


Given a cardiac rhythm strip, the student will identify an appropriate 
sequence of nursing actions from among the following four alternatives: 
obtain more data, execute a standing order, call the physician, or continue 
close observation. 


Given a decision to call the physician, the student will indicate the infor- 
mation to be shared, omitting no pertinent data. 


Given a decision to obtain more data, the student will ask for data pertinent 
to formulating a subsequent action-decision. 


Given feedback regarding a questionable action decision, the student will 
re-evaluate the decision and indicate with 100% accuracy if the decision 
was appropriate. 


For a thorough and enlightening description of defining instruc- 
tional objectives, the reader is referred to the classic text in this field, 
Preparing Instructional Objectives by R. F. Mager (Feron Publications, 
Palo Alto, CA, 1962). 


10.3.3 The Instructional Sequence 


This step in design is probably the most difficult for tutorial dialog 
programs and the least difficult for linear Monbranching) programs. 
Obviously, the instructional sequence is in part determined by the 
type of instructional computing use (problem solving, drill, simula- 
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tion, and so on) to be applied. This in turn is determined by the ration- 
ale, objectives, and interactive tasks defined for the unit. Regardless 
of the type of use, this step should include, as a minimum, answers 
to such questions as: 


1. Should review material or other information specifically related 
to the unit be provided prior to actual interaction? If so, what is 
this information and how will it be provided? What information 
or examples will be provided by the program itself? Is the pro- 
gram a required or supplemental learning activity? 

2. What student control options should be included? Stop at will? 
Skip problems or sections? Receive answers to questions without 
an actual attempt at answering? Will help or hints be provided 
by the program? 

3. Will specific content questions be included in the interaction? Are 
they presented linearly or at random? Will questions be related 
to model or problem-solving parameters? What model or formula 
is used? What parameters are needed? 

4. What are the anticipated correct answers to requested input? What 
response(s) will be given? Are ranges possible in the input? 

5. What are the anticipated incorrect answers to requested input? 
What response(s) will be given? 

6. What will the program do if neither an anticipated correct nor 
incorrect answer is matched? Give a hint? Give the answer? How 
many “‘misses”’ will be allowed? 

7. Will a “menu” of programs be presented? May the user select at 
will, or will performance or other criteria determine the sequence? 

8. Will branching to review sections be provided for students having 
difficulty? What will determine that a branch is needed? 

9. What constitutes the user's ‘score’? How is it determined? 

10. How will the performance report to the student be presented? 
Will areas of strength and/or weakness be identified? 


Answers to these—and perhaps many other questions, depending 
upon the design—must be outlined on paper prior to translation of 
the defined sequence into a computer programming language. 

Most importantly, as the program is being designed, outline each 
sequential step necessary as it progresses from the opening to the 
closing “frame” of display. Think through the total sequence of events 
necessary to impart the concept(s) of the program. Follow this same 
sequence in a step-by-step manner in the program code. This will ease 
not only the production of the design but also the translation from 
paper to actual program. It also provides the added advantage of 
giving your program good “structure, ’ rather than skipping wantonly 
from section to section in the program in a “‘spaghettilike’’ fashion. 
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10.4 Posers and Problems 


1. Outline on paper the rationale, quantitative objective(s), and se- 
quence of instruction for a short unit of instructional computing 
in an area of your interest. 
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Developmental Processes 


“The young do not know 
enough to be prudent and 
therefore they attempt the 
impossible—and achieve 
it, generation after 
generation.” 

Pearl S. Buck 


“The next-best thing to 

knowing something is 

knowing where to find it.”’ 
The Ensign 


“Them as has, gits.”’ 
Unknown 


ETE aT 
Think About This 

(for Fun) 

A bullfrog is at the bottom 
of a 30-foot well, trying to 
escape. Everytime he 
jumps up 3 feet, he falls 
back 2. How many jumps 
will it require for him to 
escape? 


ETD 
Think About This 
(Seriously) 

Should our society 
become a computer liter- 
ate society? If so, how 
could this be 
accomplished? 
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11.1 Objectives 


For the successful completion of this chapter, you should be able to: 


1. Identify the processes involved in the developmental steps of the 
systems approach to instructional design (Section 11.2). 

2. Identify the 12 guidelines for the design and development of in- 
structional computing materials (Section 11.3). 

3. Identify ten guidelines for evaluating software (Section 11.4). 

4. Using information discussed in Chapters 1—10, design and develop 
instructional computing units. 


11.2 The Systems Approach (continued ) 


The design of instructional computing materials constitutes the first 
three steps of the systems approach. These steps are essentially men- 
tal, paper-and-pencil processes. Once the rationale, objectives, and 
instructional sequence have been defined, the remaining steps of the 
development process—the coding, debugging, testing, refinement, and 
use and evaluation of the materials—may be started. 

The total process, from rationale to evaluation, for an original set 
of instructional computing materials may require 50-250 person-hours 
for each hour of user interaction at a terminal. This would include | 
development of any accompanying materials, such as user and 
instructor manuals. Of course, if model programs are simply adapted 
to a user’s specific needs, the time required for development is con- 
siderably reduced. 


11.2.1 Program Construction 


Actually, this step is still a mental, paper-and-pencil process for the 
most part. It primarily involves the translation of the instructional 
sequence into computer program statements. This is the first of the 
systematic steps in which some degree of programming expertise is 
required from either the design author or a programmer. Program- 
ming techniques and strategies must be used in transferring the design 
concepts from paper to executable program code. This step may range 
from the trivial task of adapting a model program to the extremely 
involved, time-consuming process of translating an original, detailed 
design into program code. 
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11.2.2 Debugging 


Once the code has been written, entered, and saved, execution of the 
program is attempted. Chances are, the program will not run. Prob- 
lems, commonly called bugs in computerese, may be present. These 
may be anything from simple syntax errors (omitting quotes, mis- 
spelling statements, etc.) to technical or conceptual errors (incorrect 
use of a formula, right answer not accepted, omitting counters, 
branching at the wrong point, etc.). Debugging (extermination of the 
errors) is done to the point that program execution is satisfactory from 
the author’s viewpoint. 


11.2.3 Pilot Testing 


Pilot testing of the program is performed next. Generally, this is done 
with the aid of teaching colleagues and a few volunteer students to 
test the program on an individual basis. It is recommended that the 
author literally ‘‘look over their shoulders’ as they run the program, 
since it is a rare case in which something unanticipated does not occur. 
These events may be as trivial as the user typing in an anticipated 
answer, followed by an unanticipated period or space that the pro- 
gram cannot handle. Alternately, a major discussion of the conceptual 
and/or instructional strategy may be involved. Of course, the main 
point of pilot testing is feedback to the author regarding the design 
and content of the program. | 


11.2.4 Revision 


It is common for instructional computing materials to be frequently 
revised. However, the majority of revisions occur after pilot testing. 
These revisions are usually fairly minor in nature, involving redefin- 
ing anticipated answers, improving responses, making cosmetic 
improvement to the display, and so on. However, the revisions could 
be as major as returning to the design stage for refinement of the 
program or, in extreme cases, discarding the program. (If the design 
steps are thought out carefully, this probably will not occur!) Note 
that the pilot testing and revision steps are cyclic and may be repeated 
several times prior to the actual classroom use of the program. 


11.2.3 Use in the Classroom/Furrher Revision 


Use of instructional computing materials in the classroom is, obviously, 
directly related to the design of the materials. This use may be sup- 
plemental for those students needing review or assistance on a given 
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concept; it may be a required segment of a set of “learning activities’’: 
it may be a prerequisite simulation of a real experiment prior to enter- 
ing the laboratory; it may be used both as a drill and a testing pro- 
cedure; and so on. 

Regardless of the particular application, it is safe to anticipate minor 
revision of the materials, if for no other reason than the number of 
users testing the materials will have increased. Again, it is unlikely 
that the materials will ever get to the point where no additional revi- 
sions (however minor) are needed. Thus, use in the classroom and 
revision are cyclic and may continue as long as the materials are a 
part of the given instructional process. 


11.2.6 Evaluation 


Evaluation of instructional computing materials may be divided into 
two categories. The first is an analysis to determine if users are indeed 
attaining the defined objectives. This analysis may vary depending 
upon the design of the materials, but it is often based upon pretest 
and posttest results. If negative results are indicated, a return to Step 
1 of the systems approach may be appropriate. 

The second evaluation is that of the concept of using instructional 
computing materials. Did this approach as an instructional medium 
prove suitable? Analysis of this comes in part from evaluation of the 
materials in terms of meeting defined objectives. Further evaluation 
may be based on both user and colleague feedback via attitudinal 
questionnaires, overall user performance, and, although it lacks quan- 
titative measurement, the author's intuitive feelings. 

Note: Research since the late sixties has consistently indicated that 
the concept of the use of supplemental instructional computing mate- 
rials is educationally valid. In general, the success or failure of any 
given instructional computing program rests heavily upon the design 
steps previously discussed. Although it should go without saying, the 
importance of thoughtful design merits emphasis one final time. If, in 
particular, the rationale, objectives, and instructional sequence are 
very carefully defined, the chances for successful use of the materials 
are greatly enhanced. In other words, think it through, folks! 


11.3 Guidelines for Design and Development 


11.3.1 Consider BASIC 


There are a variety of programming languages that may be used in 
developing instructional computing materials. A variety of ‘‘author- 
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ing’ languages and systems also exist. However, to this point in time, 
BASIC is the most common language found on microcomputers. 
Although there are some disadvantages to using BASIC as an instruc- 
tional computing language (primarily in translating instructional 
sequence into program code), they are minor when compared to the 
relative ease of acquiring a working knowledge of the language, its 
universal nature, and its transportability. These elements, along with 
the possibility that a working knowledge allows creativity in devel- 
opment, make BASIC worthy of consideration. 


11.3.2 Modularize the Units 


It is good practice when writing any computer program to keep it as 
modular (concise by topic) as possible. For example, if a given concept 
includes a series of subconcepts, it is better to have one program for 
each subconcept, rather than one long program for the total concept. 
Programs are not only easier to design on this basis but are also easier 
to debug and revise. Modularization also allows for better “pacing” 
through an instructional sequence, identification of areas of weakness 
or strength for a given user, and easier evaluation of a lesson. 


11.3.3 Follow a Systems Approach 


It is very important that both the author and user of a program know 
the why, what, how, and effect of using instructional computing mate- 
rials. Following a systems approach in the design and development 
of the materials is a means by which this may be accomplished. Above 
all else, remember that any unit of instruction must be carefully planned 
and designed ‘‘on paper” prior to writing the program code. 


11.3.4 State Quantitative Objectives 


Although this is one of the steps in the systems approach to instruc- 
tional design, it merits reiteration. Ensure that users of instructional 
computing materials know specifically the extent and effect of a suc- 
cessful interaction with the materials. This means that measurement 
of the objectives must be possible. | 


11.3.3 Put in Personality 


Be kind to the users of your materials. Have a variety of positive 
reinforcers. Avoid the use of any negative feedback to the user; rather, 
make your responses to incorrect answers indicate that you are there 
“in spirit’ to assist the user, and then proceed to do so. Include enough 
humor to solicit a smile or two from the user, but avoid the use of 
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“cute” statements and repetitive responses. Also avoid the use of “fad” 
responses; they go out of style quickly. Remember that although 
graphics have appeal, can impart information, can increase motiva- 
tion, and so on, a ‘smiling face” that takes 5-10 seconds to be dis- 
played will eventually become boring if given after every correct answer. 


11.3.6 Consider Glurteal Limits 


Another advantage of modularization is that the user will not be sit- 
ting at a terminal for lengthy periods. A good rule is to limit the 
interaction to 30 minutes or less. 


11.3.7 Avoid Lengthy Text 


Do not make programs “page turners’’! It is expensive and boring. 
One of the key elements in successful instructional computing is that 
the user be an active learner. If detailed information, figures, tables, 
and so on, are required, have these available as supplemental mate- 
rials prior to or during the interaction. In designing the program, 
consider it a series of “frames” of display, each providing informa- 
tion, giving examples, asking questions, giving feedback, presenting 
options, and so on. If possible have the user active in each frame. 


11.3.8 Branch 


Another key to success is the individualization that may be provided 
by branching. If appropriate, the program should have the capability 
to allow users to review additional material, skip areas if competence 
is indicated, and/or stop the interaction at will, based upon user need 
or performance. In any event, never construct a program so that the 
user is trapped in a routine with no means of escape. Always provide 
some means by which the user may continue. For example, give the 
answer after a certain number of incorrect responses or provide other 
options. 


11.3.9 Supplemental Use 


For better or worse, the major use of instructional computing is as a 
supplement or adjunct to traditional instruction. There are few courses 
that are taught by computer alone. Design units that will ease those 
areas that are routine to the instructional process or that can be best 
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done by instructional computing techniques. Remember, it takes 
teachers to impart personality, lead discussions, and explain abstract 
concepts. 


11.3.10 Document 


Your work in the design and development of materials represents 
much time, effort, and thought. Thus, if possible, have your programs 
well documented with REMark statements and develop student and 
teacher guides, where appropriate. This will facilitate not only the 
local use of your materials, but also their potential use elsewhere. 


11.53.11 Review the Literature 


Have others done what you are doing? Is their approach different from 
yours? Are you ‘‘reinventing the wheel’’? Before you invest the effort 
required to design and develop materials, you should know what has 
gone on before. Likewise, if your work is unique and successful, con- 
sider publishing a description of what you have done. There are a 
variety of journals oriented to instructional computing, and other 
publications available. Others interested in instructional computing 
should have the opportunity to become aware of your efforts. 


11.3.12 Recognize the Capabilities of the Computer 


Finally, but perhaps foremost, never forget that, to this point in the 
realm of instructional computing, computers are an incredibly fast, 
accurate, and useful tool. They can only do what they have been pro- 
grammed to do. That means that people are providing the instruc- 
tions. Thus, computer programs are only as good or bad in their actions 
as they have been designed to be by the people who provided the 
instructions. 

Instructional computing materials have been used successfully in 
problem solving, drill, testing, simulation, and toa lesser degree, tuto- 
rial applications. In general, these are applications where speed and 
accuracy are important in improving the instructional process. That 
is where we are today. 

Where will instructional computing be in the future? More and 
better of the same? Faster and cheaper computing? Computers in 
every home and school? Libraries of validated instructional comput- 
ing materials? Use in practically every academic discipline? It is dif- 
ficult to accurately predict this future, for the limits are determined 
by something unpredictable and unlimited: imagination. 


11.3 Guidelines for Design and Development 199 


11.4 Evaluation of Software 
(Your Own and That of Orhers) 


It is estimated that there are at least 6,000 educational computer 
programs available in the United States. As you can imagine, some 
are good, some are poor, and some are in between. In order to begin | 
to review software with a critical eye, some reference point is needed. 
The following are ten essentials that should be considered as the min- 
imum criteria for software evaluation. 


11.4.1 Utilize Unioue Capabilities of the Computer 


Software should utilize the unique capabilities of the computer. If the 
use of the computer as an adjunct to the instructional process cannot 
be justified, then why use it? Ask yourself: What does this software 
do on the computer that cannot be done in some other manner that 
is just as effective or efficient? 


11.4.2 Pedagogical Use 


Software should be pedagogically sound. Is the program based on a 
learning or instructional theory that is appropriate to the subject 
matter and cognitive level of the student? Is the program itself peda- 
gogically correct? 


11.4.3 Current and Up-to-Date 


Software should reflect current and valid curricula. Is the curriculum 
content of the software consistent with the curriculum content of the 
classroom? Does it meet the defined goals of the school or district 
program? 


11.4.4 Error-Free 


Software should be free of any errors. Are there technical program- 
ming errors? Does the program have spelling, grammatical, or con- 
tent errors? How extensively has the software been validated? Where? 
How? By whom? | 


11.4.3 Positive Learning Experience 


Software should provide a positive learning experience. Is seiaioiee: 
ment immediate and positive? Many programs make the mistake of 
rewarding failure with “cute” graphics or sounds. Students may 
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intentionally fail in order to see the results. On the other hand, pro- 
grams should not have any ‘humiliating’ elements such as sour sound 
tones for incorrect responses. Software should never contain insulting 
references to the student’s progress, such as ‘Dummy,’ or sexual, 
racial, or religious slurs. 


11.4.6 Ease of Use 


Software should be easy to use. Are the instructions clear, concise, 
and consistent? Can the instructions be remembered easily, or can 
they be recalled if forgotten? Is the operational skill level consistent 
with the age of the student user? Does the student know the purpose 
and objectives of the software? 


11.4.7 Teacher Modification 


Software should allow for teaching modification. Can the teacher select 
the number or content of questions to be presented? Can the teacher 
modify the length or instructional sequence of the learning session? 
Teacher “control” of such options may be an important consideration 
in some circumstances. 


11.4.8 Motivate the Learner 


Software should motivate the learner. Its design should be such that 
frame displays are pleasing, objectives and content are clear, and the 
learner is an active participant and does not become bored or tired. 


11.4.9 Supplemental Materials 


Software should provide supplemental written materials. Are there 
written instructions for the software? Is there a teacher's guide 
describing the objectives, alternate activities, cross-references, in- 
structional strategies, and evaluation techniques? Are there work- 
sheets, handouts, exercises, tests, and so on? 


11.4.10 Backup 


Software should provide backup capability. Educational software is 
costly and can be easily damaged. Are backup copies of the software: 
available? If the software is from a commercial source, can a backup 
copy be obtained at a reasonable cost? What options does the vendor 
provide if each student in the class needs a copy of the software? 
(Remember, we all are responsible for seeing that unauthorized cop- 
ies of software are not used in the classroom. Not only is this illegal, 
it also would set bad examples for students.) 
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Appendix A 


The Commodore 64 Computer 
and How To Use It 


A.1 The Commodore 64 Computer 


The Commodore 64 microcomputer is one of the most popular com- 
puters sold in America. Among the reasons for this popularity is its 
computing power and economical price. A Commodore owner can 
begin with an investment of as little as $200 and gradually upgrade 
the system as his or her interest and budget allow. 

The variety of components available for the Commodore 64 make 
it difficult to describe all the possible combinations. Therefore, this 
book will limit the discussion to the typical system found in schools: 


1. Commodore 64 with 64K of RAM 
2. Color monitor 

3. Commodore 1541 disk drive 

4. Dot matrix printer 


A.1.1 Inside the Commodore 64 


From the exterior the Commodore 64 appears to be a typewriter with 
a keyboard but no place to put the paper. Inside the case of the Com- 
modore are the integrated circuits (referred to as “ICs” or ‘‘chips’’) 
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that make it operate. The functional work unit is the microprocessor 
chip, which is located centrally in the computer. Surrounding the 
microprocessor are memory chips, peripheral connectors, and other 
electronics necessary for the operation of the Commodore. 

Two types of memory are found in most microcomputers. ROM, 
read only memory, has programs already stored in it by the manu- 
facturer. These programs are permanent and are never lost even when 
the power is turned off. RAM, random access memory, in contrast is 
read and write memory. When the power is turned off, any programs 
or data stored in RAM are erased. 

In the Commodore 64, 20K of ROM (20,480 characters of storage) 
contain the programs that make the computer operate (the operating 
system) and the BASIC language interpreter. The latter converts BASIC 
statements and commands to meaningful codes to which the micro- 
processor can react. 

The Commodore 64 is also outfitted with 64K of RAM (65,536 char- 
acters of storage). This memory is used to store a BASIC program, the 
program’s variables, and the text and graphic images on the screen. 
In the Commodore 1541 disk drive, the Disk Operating System (DOS), 
which contains the instructions to transfer data and programs between 
the computer and the drive, resides in 16K of ROM inside the disk 
drive. An additional 2K of RAM in the 1541 disk drive allows advanced 
programmers to add commands to the DOS. 

Three connectors are provided on the right-hand side and six con- 
nectors at the back (see Figure A.1). These connectors (called buses by 


FIGURE A.1 
Connectors on the 
Commodore 64 
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computer buffs) are used to connect the Commodore with peripheral 
devices such as joysticks and graphic tablets (#1 and #2 in Figure 
A.1), the Commodore 64’s power supply (#3), ROM expansion car- 
tridges (#4), a television (#5), video monitor and sound equipment 
(#6), disk drives and printer (#7), cassette tape recorder (#8), and 
various RS-232 devices like a telephone modem (#9). The disk drive 
and printer connector (#7) is a serial bus that allows multiple devices 
to share the bus. In fact you can use up to five disk drives and one 
printer on this bus. Each 1541 disk drive is ‘“chained” to another using 
an expansion connector and cable. The printer is connected to the last 
disk drive at the end of the ‘‘chain.”’ 

Additional integrated circuits inside the Commodore 64 are used to 
generate the screen display, decode the keyboard input, and provide 
support for the RAM, ROM, and microprocessor. As with all electronic 
appliances, severe damage or shock can result from liquids being spilled 
inside the Commodore. Appropriate care should be exercised. 


A.1.2 The Television (Monitor) 


The Commodore 64 will output to any black-and-white or color tel- 
evision. Of course, color graphics cannot be displayed in color on a 
black-and-white TV. Alternately, either a black-and-white or a color 
monitor can be used. A monitor will generally produce a sharper 
picture than a television; however, it is usually more expensive. The 
TV set is connected to the Commodore through an RF modulator, 
which converts the Commodore's video signal to a TV signal. The 
modulator is located inside the Commodore 64 and connects to the 
TV's antenna leads via a cable plugged into the television connector 
(#5 in Figure A.1). If a monitor is used, it is connected via cable to 
the video output connector (#6). 


A.1.3 The Commodore 13741 Disk Drive 


The 1541 floppy disk drive is the “file cabinet’’ system of the Com- 
modore 64. It is capable of storing 174,848 characters of information 
(up to 144 different programs and/or data files) per diskette. The disk 
drive is connected to the computer via a cable plugged into the serial 
bus (#7 in Figure A.1). The drive communicates with the Commodore 
64 through an interface called a disk controller that is located inside 
the disk drive cabinet. An expansion connector is provided at the back 
of the disk drive to allow for additional drives and/or a printer to be 
connected. 
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A.1.4 The Dot Matrix Printer 


The Commodore 1525 Graphics Printer can be connected to the Com- 
modore 64 through the serial connector (#7) on the computer or through 
the expansion connector on the 1541 disk drive. A variety of other 
printers can be connected to the Commodore 64 through an interface 
plugged into the RS-232 connector (#9 in Figure A.1). The most com- 
mon and less expensive printers use a pattern of dots to print the 
characters on the paper, hence the name dot matrix printer. The cost 
of printers ranges from approximately $250 to several thousand dol- 
lars, and they are considered by some to bea luxury in the educational 
setting. However, a printer is essential to the process of developing 
instructional computing materials. 


A.2 How To Use the Commodore 64 with This Text 


Accompanying this text is a diskette containing all of the sample pro- 
grams described in the chapters. This diskette is designed to work on 
the standard Commodore 64 system with a 1541 disk drive. It is rec- 
ommended that the reader use this diskette in conjunction with the 
text in order to study the programs. It is further recommended that 
a second diskette be used to store the programs you develop from the 
“Posers and Problems.” The following sections will explain how to 
“power up” the Commodore 64, initialize your own diskette, care for 
diskettes, use a printer, and deal with trouble if you get into it. 


A.2.1 Powering Up 


Using the diskette labelled ‘Instructional Computing Fundamentals 
for the Commodore 64” power up the system as follows: 


1. Turn on the television or monitor and the printer. 

2. Turn on the disk drive by pushing upward on the switch located 
on the back of the drive on your right-hand side. The screen “power’”’ 

: light on the disk drive will come on. For a second, the drive will 
make whirring sounds while its red light is on. 

3. Turn on the Commodore 64 by pushing upward on the switch located 
on the right-hand side of the computer. The red “power” light will 
come on on the computer and the disk drive will make whirring 
sounds again. 

4. Open the door on the disk drive and slip the diskette into the slot 
in the front of the drive with the diskette’s label facing upwards. 
The edge of the diskette with the oval cutout should be toward the 
back of the drive. 
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FIGURE A.2 

Booting up the text 
diskette should result 
in this title screen 


5. Push the diskette gently into the drive until it is entirely inside the 
drive. Do not force or bend the diskette. Close the disk drive door. 

6. Type the following command and press the RETURN key: LOAD 
“START”’,8 

7. The red light on the disk drive will go on and the drive will make 
whirring sounds. When the word READY appears on the screen, 
type RUN and press the RETURN key. 

8. Ina few seconds, the title of this book and the names of its authors 
should appear on the screen (see Figure A.2) and then a warning 
about the use of this diskette. In a few more seconds a menu of 
programs stored on the diskette will appear (Figure A.3). 


To RUN a program from the menu, choose the program, type in its 
corresponding number and press the RETURN key. When the screen 
asks whether you wish to LOAD or RUN the program, type the num- 
ber 2, the option to RUN the program, and press the RETURN key. 
The computer will automatically LOAD and RUN the program you 
selected. 

To execute a program on the diskette without using the menu, type 
LOAD followed by the name of the program (in quotes) followed by 
a comma and the number 8 (the device number for the disk drive) 
and press the RETURN key. When the computer prints that it is READY, 
type RUN and press the RETURN key. To see a list of the program’s 
statements, type LIST and hit the RETURN key. For example: 


LOAD "PROGRAM i"+8 (don't forget the RETURN key) 
RUN (RETURN key again) 


will load Program 1 from the diskette into the computer’s memory 
and execute it. 


Instructional Computing Fundamentals 
for Commcdore Computers. 


> Herbert Nickles 
Laiifornisa State University 
San Bernardino 


George Cul 


F 
Uinaversity af Texas at Austin 


Copyright i385 
Brooks/Cole Publishing Company 
Honterey, California 
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FIGURE A.3 
Menu of programs 


THIS IS NOT A DEMONSTRATION DISKETTE! 
THE PROGRAMS ARE AN INTERNAL PART OF 
AND SOLELY FOR USE IN CONJUNCTION WITH 
THE ACCOMPANYING TEXT MATERIAL. 


DEPRESS ANY KEYeos 


[Clear screen] 


** MENU OF PROGRAMS # * 
EXAMPLE PROGRAMS FROM THE TEXT: 


26 


Q 
ANSWERS TO ’POSERS AND PROBLEMS’: 
27.+A354 30.,AGG2 933,A786 
2B,,Ad22 31..A784 
29++AG98 32,.+A789 
DEMONSTRATION PROGRAMS FROM THE TEXT: 


34,.1TSLAND 36..50CKS 
3O++KEYWORD DEMO 37..MENU 


PLEASE ENTER THE NUMBER OF THE PROGRAM 
YOU WISH? 1 


A.2.2 Initializing a Blank Diskette 


You will want to store the programs you write on a diskette. Although 
you can store your own programs on the diskette that came with this 
text, it is best to use another diskette so that you don't accidentally 
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delete a sample program. Obtain a new blank diskette and follow the 
procedure below: 


1. Power up the Commodore 64 as described in steps 1 to 3 in Section 
A.2.1 above. _ 

2. Insert your blank diskette into the disk drive. 

3. Type: OPEN 15,8,15,“NEW:diskname,id” (““Diskname”’ isany name 
you wish to give to the disk; “id’’ is a 2 character identification 
code of your choice.) Press the RETURN key. The formatting process 
will begin and the disk drive will make noises for a couple of minutes. 

4. When the process is complete, the red light on the disk drive will 
go out. Remove the diskette and label the outside of the diskette 
with a pressure sensitive label (use a felt tip pen so that you won't 
damage the diskette). 


It is very important that you have a blank diskette in the drive when 
you follow the above procedure, otherwise you will destroy any pro- 
grams on the diskette. This procedure formats the diskette so that it 
can be used with the Commodore 64 only. It cannot be read by any 
other computer. 


A.2.3 Care and Treatment of Diskertes 


The programs you store on diskette are valuable. You have an invest- 
ment in them: either time or money or both. Eliminate troubles by 
following these simple precautions: 


1. Handle a diskette by the jacket (plastic cover) only. Do not allow 
anything to touch the exposed area of the diskette. 

2. Never subject a diskette to a magnetic field as it may erase the 
diskette. Setting your diskette on top of a TV or printer could cause 
problems. 

3. Keep diskettes flat. Do not fold, bend, or crimp in a three-ring 
binder. 

4. Insert diskettes carefully into the disk drive. Don’t use unnecessary 
force. 

5. Store diskettes in their envelopes away from liquids, dirty or greasy 
surfaces, and dust. In the classroom, chalk dust can cause serious 
problems with diskettes. 

6. Do not expose diskettes to extreme heat or cold. Car dashboards 
and trunks are diskette killers. 


A.2.4 How to Use a Printer 


Since several printers may be used with the Commodore 64 computer, 
the following instructions for using a printer are generalized. Should 
_ these instructions not work, refer to your printer or printer interface 
manual. 
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1. Locate the on/off switch on the printer and turn it on. (Commodore 
recommends that the printer be turned on before turning on the 
computer.) 

. Check for a switch labeled online/offline and set it for online. 

. Type OPEN 4,4:CMD 4 and press the RETURN key. Subsequent 
text which appears on the monitor’s screen should also appear on 
the printer’s paper. 

4. Printing may be halted by typing PRINT#4:CLOSE 4 and pressing 
the RETURN key. Locate a switch on the printer labeled linefeed 
or formfeed. Use this switch to eject the paper so that the printout 
can be removed from the printer. If these switches are not present, 
use the platen knob to “roll” the paper up as you would in a 
typewriter. 


WN 


A.2.3 What to Do When All Else Fails 


The Commodore 64 is a very simple computer to use. However, even 
if you have read all the directions, sometimes you may get into a 
situation that you will need help getting out of. Here are a few sug- 
gestions to try: 


Halting a runaway. Sometimes when you run a program or take a 
listing of a program you may desire to stop before it finishes. To do 
this press the key marked RUN/STOP. It will break (interrupt) the 
program or listing. 


Getting back tonormal. When dealing with color graphics, the back- 
ground and text colors can produce some unexpected results. For 
example, if the text color is accidentally set to the background color, 
no text will appear on the screen. To reset the screen to its original 
text, background, and border colors, press the RUN/STOP key and 
simultaneously press the RESTORE key. The screen will return to 
normal, but the program in memory will not be affected. 


The last resort. If all attempts to get yourself out of the jam you're 
in have failed, try turning off the power and following the instructions 
in Section A.2.1 for powering up the system. Please note that turning 
off the power can have disastrous results with certain programs. This 
procedure will definitely erase the program in memory, but will not 
affect the diskette as long as the red light on the disk drive is not lit 
when you turn off the power. 

If you cannot get the diskette available for this book to load cor- 
rectly, reread section A.2 to make sure that you are following the 
directions correctly. 
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Appendix B 


Commodore BASIC 
LanquaGe Summary 


This summary defines the most commonly used statements and com- 
mands for educators using the Commodore 64 computer. It is not a 
complete listing of all possible statements, nor does it present detailed 
descriptions of the action of each statement. The reader who requires 
such information is referred to the Commodore 64 Programmer's Ref- 
erence Guide available from Commodore dealers. 

The assumption of this guide is that the statements and commands 
as described are intended to be used on a Commodore 64 computer 
with a 1541 disk drive. This configuration is very common for edu- 
cational users. If the reader's system is not configured in this fashion, 
some of the following statements and commands will function differ- 
ently than documented. | 

In the following summary, the general format for each statement 
or command will be presented with an example, or examples when 
necessary for clarity, and a description of the action initiated. The 
conventions and abbreviations used are as follows: 


ee Required element 

Leet Optional element 

cond Any logical condition 

dimension(s) The maximum dimension(s) of an array 

expr Any numeric constant, variable or expression 
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file 

key 

line number 
message 
statement 
string 
variable 

or var 


B.1 BASIC Statements 


DATA 


DIM 


END 


FOR 


GET 


Any legal filename 

Any key on the computer’s keyboard 

Any legal line number from 0 to 63999 

Any combination of characters 

Any legal Commodore BASIC statement 
Any string constant, variable, or expression 
Any legal variable described in Section 3 


line number DATA <list of variables> 
£10 DATA 4.3%"A to 2"+10 


Provides a program with data that can be stored into 
variables using the READ statement. In the example, 
4.3 is a real number, “A to Z” is a string, and 10 is 
an integer. (See READ below.) 


line number DIM <variable(dimension(s))> 
10 DIM A(23) +5B(3+4) »C$(4) 5D$(12530) 


Defines a variable that is capable of storing a list 
(single dimension) or a table (double dimension) of a 
specified length. In the example, A is a numeric var- 
iable with 23 possible entries. D$ is a string variable 
with a maximum of 12 rows and 30 columns. 


line number END 
32767 END 
Terminates the execution of a program 


line number FOR <var>=<expr> TO <expr> {STEP 
<expr>} 


45 FOR IT=2 TO 10 STEP 2 


Creates a “loop” that will execute all of the state- 
ments between a FOR and a NEXT statement a spec- 
ified number of times. In the example, the loop would 
be executed for the values of I from 2 to 10 by 2’s (i.e. 
2, 4, 6, 8, and 10). (See NEXT below.) 


line number GET <variable> 


7Q GET xX 
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GOSUB 


GOTO 


IF-THEN 


INPUT 


Inputs a single character from the keyboard without 
the character being printed on the screen. Does not 
require the RETURN key to be pressed. In the exam- 
ple, the input character is stored in the variable X$. 


line number GOSUB <line number> 
220 GOSUB1LOOOO 


Unconditionally branches program execution to a 
subroutine at the indicated line number. When a 
RETURN statement is encountered in the subrou- 
tine, execution is returned to the statement imme- 
diately following the GOSUB. The example will cause 
the program to branch to the subroutine beginning 
at line 10000. (See RETURN below.) 


line number GOTO <line number> 
670 GOTO 10 


Causes the execution of the program to branch to the 
indicated line number. In the example, program exe- 
cution will branch from line 670 to line 10. 


line number IF <cond> THEN <statement(s)> 
line number IF <cond> THEN <line number> 
line number IF <cond> GOTO <line number> 


oO IF A$ = "VY" THEN PRINT "CORRECT" 
72 IF KX << 2 THEN 300 
390 IF C <= 378 GOTO 4000 


Causes the program to execute the indicated state- 
ment(s) or branch to a line number if a specified con- 
dition is true. If the condition is false, the statement 
or branch is not executed, and the program continues 
with the execution of the next numbered statement 
following the IF-THEN. In the first example, the word 
CORRECT will be printed if A$ has the string value 
“Y”’, The second example will cause a branch to line 
300 if the value stored in X is less than the value in 
Z. The third example will cause a branch to line 4000 
if the value of C is less than or equal to 578. 


line number INPUT {string;} <list of variables> 


240 INPUT "WHAT IS YOUR NAME "sNAMES 
B00 INPUT A+sB:C 
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Inputs data from the keyboard to be stored into 
respective variables listed. Optionally, INPUT can 

' print a string on the screen before waiting for input. 
The RETURN key must be pressed after the user has 
entered data. In the first example, the string WHAT 
IS YOUR NAME will be printed on the screen fol- 
lowed by a ? and the cursor. The string the user enters 
will be stored in NAME$. The second example will 
input from the keyboard three numeric values sep- 
arated by commas and store them into A, B, and C 
respectively. 


LET line number LET <variable> = <expr> 
line number <variable> = <expr> 


110 LET Cc = 100 
120 P$ = "GREAT!" 
190 A = 1/2 *# B +H 


Assigns the value of <expr> to <variable>. The word 
LET is optional. In the examples, the value 100 is 
stored in the variable C, the string GREAT! is stored 
in the variable P$, and variable A will have the value 
of one-half B plus H. 


NEXT line number NEXT <variable> 
BO NEXT I 


Terminates a loop begun by a FOR statement. The 
<variable> must be the same used in the corre- 
sponding FOR statement. In the example, line 80 will 
terminate the preceding statement: 45 FOR I=2 to 
10 STEP 2. (See FOR above.) 


ON-GOSUB line number ON <expr> GOSUB <list of line 
numbers> 


30 ON X GOSUB 10000;15000 


Branches to the subroutine at the line numbers indi- 
cated based on the arithmetic value of an expression. 
In the example, the program will branch to the sub- 
routine at line 10000 if X is 1 and to the subroutine 
at 15000 if X is 2. If X is O or greater than 2, the 
statement immediately following the ON-GOSUB will 
be executed. If X is less than 0, an “Illegal Quantity” 
error will occur. 
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ON-GOTO line number ON <expr> GOTO <list of line 
numbers> 


40 ON X-Y GOTO 300;+600;700 


Branches to the line numbers indicated based on the 
arithmetic value of an expression. In the example, 
the program will branch to line 500 if X-Y has the 
value 1, line 600 if X-Y has the value 2, and line 700 
if X-Y has the value 3. If X-Y is 0 or greater than 3 
then the statement immediately following the ON- 
GOTO will be executed. If X-Y is less than 0, an “‘Ille- 
gal Quantity” error will occur. 


PEEK line number <variable> = PEEK ( <expr> ) 
20 K = PEEK(S3280) 


Returns an integer value from 0 to 255 that is stored 
in the memory location defined by the decimal 
expression. In the example, the value of X will be set 
to the integer value of the memory location 53280 
which is used to store the color of the border on the 
screen. 


POKE line number POKE <expr1>,<expr2> 
60 POKE 534296,;15 


Allows the user to change any RAM memory location. 
<expr1> is the decimal value of the memory loca- 
tion. <expr2> is the value to be placed in memory. 
In the example, the value 15 will be placed into mem- 
ory location 54296, which will set the speaker volume 
to its maximum. 


PRINT line number PRINT <list of variables> 
B90 PRINT "YOU GOT"SN3"QUESTIONS CORRECT," 


Causes the computer to advance the cursor to the 
next line on the screen and print the values of the 
specified variables or strings. In the example, if N 
had the value 9, then YOU GOT 9 QUESTIONS COR- 
RECT . would appear on the screen. See Section 2, 
“Text-Formatting Statements,’ for more infor- 
mation. 
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READ 


REM 


RESTORE 


RETURN 


line number READ <list of variables> 
465 READ KY ez 


Used in conjunction with the DATA statement to store 
data into variables within a program. When a READ 
statement is executed, the program will set the var- 
iables listed to the next successive values in the pro- 
gram’s DATA statements. The example will take the 
next three values from the DATA statements and store 
them in X, Y, and Z respectively. (See DATA above.) 


line number REM <message> 
10 REM PROGRAM BY IMA TEACHER 


Inserts a REMark into the program. The message only 
appears when the program is listed, not when it is 
run. 


line number RESTORE 
360 RESTORE 


Returns the DATA list pointer to the first value of the 
first DATA statement allowing for the DATA to be 
reread. 


line number RETURN 
10450 RETURN 


Terminates a subroutine and returns execution to the 
next numbered statement following the GOSUB that 
called the subroutine. (See GOSUB above.) 


B.2. Text-Formatring Statements 


COMMA (,) 


line number PRINT <var>,<var> 
370 PRINT QUANTITY »PRICE»TOTAL 


Used in a PRINT statement to space data into 10 col- 
umn fields. In the example, the value of the variable 
QUANTITY will be printed starting in column 1, the 
value of the variable PRICE will be printed starting 
in column 11, and the value of the variable TOTAL 
will be printed starting in column 21. 
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CLEAR SCREEN ( CLR/HOME KEY) 


POS 


line number PRINT “Q9Y”’ 
10 PRINT "9" 


The CLR/HOME key, when used with the SHIFT key, 
clears the text screen and returns the cursor to the 
“home” position in the upper left-hand corner. To exe- 
cute this function, press the SHIFT key while simul- 
taneously pressing the CLR/HOME key. When the keys 
are included inside parentheses in a PRINT state- 
ment, the screen will be cleared when the PRINT 
statement is executed. 


line number <var>=POS <expr> 
7390 K=P0S(0) 


POS is a text function that returns the current hori- 
zontal cursor position from the left margin (0) to the 
right margin (39). Although <expr> is required, the 
expression has no effect on the results. In the example, 
X will be set to the current horizontal cursor position. 


REVERSE CHARACTERS (RVS ON KEY) 


line number PRINT “<CTRL><RVS ON> <string>” 
345 PRINT "<CTRL><RVS ON>CORRECT" 


Sets the text printing mode to reverse video. Text 
printed following <CTRL><RVS ON> will be printed 
in reverse video. <RETURN> or <CTRL><RVS OFF> 
will return to normal video. In the example, COR- 
RECT will appear in reverse video on the screen. 


SEMICOLON (;) 


SPC 


line number PRINT <string>;<var> 
B40 PRINT "YOU GOT" S5N5"CORRECT," 


Used in a PRINT statement to position the cursor 
immediately after the string or variable preceding the 
semicolon. If N=10 in the example, the printed line 
would read: 


YOU GOT 10 CORRECT. 
line number PRINT <var>;SPC( <expr> );<var> 
480 PRINT AsSPC(10)5B 


Used in a PRINT statement to insert a specified num- 
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TAB 


ber of spaces between two variables when preceded 
and followed by semicolons. In the example, the value 
of A will be printed, followed by 10 spaces and then 
the value of B will be printed. 


line number PRINT TAB ( <expr> );<var> 
80 PRINT TAB(15)5R 


Used in a PRINT statement to move the cursor to the 
specified column where 0 is the left margin. TAB can 
only move the cursor to the right. In the example, the 
value of R will be printed starting in column 15. 


B.3 Summary of Variable Types 


INTEGER 


REAL 


STRING 


B.4 Summary of Operators 


Variable name: single letter optionally followed by a 
single letter or digit followed by a % character. 


Range: -32768 to +32767 
Examples: 1% B2%+ GH% 


Variable name: single letter optionally followed by 
a single letter or digit. 


Range: -1.7 E+t38 to +1.7 E+38 
Examples: S» RS» DE 


Variable name: single letter optionally followed by a 
single letter or digit followed by a $ character. 


Range: 9 to 255 characters 
Examples: FH+s KO%s XY$ 


Note that variable names may be longer than two char- 
acters, but only the first two characters are significant. 
Consequently VIC and VICTORY are the same real var- 
iable VI. 


ARITHMETIC 
+ Addition % 
/ Division — Subtraction or negation 
t Exponentiation 


(raise to a power) 
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LOGICAL 


AND Logical product 
NOT Logical negation 
OR Logical sum 
RELATIONAL 
= Equals 
> Greater than 
>= Greater than or equal to 
< Less than 
<= Less than or equal to 
<> Not equal to 
STRING 
+ Concatenation 
B.2. Mathematical Functions 


ABS 


ATN 


COs 


EXP 


line number <var>=ABS( <expr> ) 

100 X=ABS(-G6.75) 

Returns the absolute value of <expr>. In the example, X = 6.75. 
line number <var>=ATN( <expr> ) 

100 K=ATN(1) 


Returns the arctangent of <expr> in radians. In the exam- 
ple, X= .785398163. 


line number <var>=COS( <expr> ) 
100 x=COS (1) 


Returns the cosine of <expr>. <expr> must be in radians. 
In the example, X = .540302306. 


line number <var>=EXP( <expr> ) 
100 K=EXP(1) 


Returns the value e f <expr> where e=2.718289. In the 
example, X = 2.71828183. 
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INT 


LOG 


RND 


SGN 


SIN 


SQR 


TAN 


line number <var>=INT( <expr> ) 
100 K=INT(4,53) 


Returns the greatest integer in <expr> which is less than 
or equal to <expr>. In the example, X= 4. 


line number <var>=LOG( <expr> ) 
100 K=LOG(2) 


Returns the natural logarithm of <expr>. In the example, 
X= .693147181. 


line number <var>=RND( <expr> ) 
100 K=RND(O) 


Returns a random number greater than or equal to 0 and 
less than 1. If <expr> is 0, RND returns a random number 
generated from the internal clock. If <expr> is a positive 
number, the same set of random numbers is generated each 
time the program is run. 


line number <var>=SGN( <expr> ) 
100 X=SGN(-217,.,456) 


Returns the sign of <expr>: +1 if positive, 0 if zero, and 
— 1 if negative. In the example X= — 1. 


line number <var>=SIN( <expr> ) 
100 K=SIN(1) 


Returns the sine of <expr>. <expr> must be in radians. In 
the example, X= .841470985. 


line number <var>=SQR( <expr> ) 

100 K=SOR (TG) 

Returns the square root of <expr>. In the example, X=4. 
line number <var>=TAN( <expr> ) 

100 K=TAN(1) 


Returns the tangent of <expr>.<expr> must be in radians. 
In the example, X = 1.55740772. 
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B.6 String Functions 


ASC 


CHR$ 


LEFT$ 


LEN 


MID$ 


RIGHTS$ 


STR$ 


line number <var>=ASC( <string> ) 
100 K=ASC ("COMMODORE") 


Returns the ASCII code for the first character in the string 
specified. In the example, X = 67. 


line number <string> =CHR$( <expr> ) 
100 X$=CHR#$(G67) 


Returns the ASCII character specified by the numerical 
value of <expr>. In the example X$=‘'C”’. 


line number <string> = LEFT§( <string>,<expr> ) 
100 X$=LEFT$( "COMMODORE" +3) 


Returns a substring of the <string> from the first char- 
acter to the <expr>th character. In the example, 
X$="'COM”. 


line number <var>=LEN( <string> ) 
100 K=LEN("COMMODORE") 


Returns the number of characters contained in <string>. 
In the example, X=9. 


line number <string> =MID$(<string>,<expr1>, 
<expr2> ) | 


100 X$=MID$("NOW IS THE TIME"+5;6) 


Returns a substring of <string> which begins with the 
character specified by <expri1> and has a length of 
<expr2> characters. In the example, X$=“IS THE’”’. 


line number <string> = RIGHT{( <string>,<expr> ) 
100 X$=RIGHT$ ("COMMODORE G4" 52) 


Returns a substring of <string> consisting of the right- 
most characters specified by <expr>. In the example, 
X$= "64", 


line number <string> =STR$( <expr> ) 
100 X$=STR#$(24.07) 
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Converts the <expr> to a string. In the example, 
X$ = "24.07". 


TIME$ line number TIME$ = ‘“‘Shhmmss’”’ 
line number <string> = TIME$ 


100 TIME$="123050" 
200 NOWS=TIMES 


Sets or reads the internal timer. When TIME$ appears 
on the left side of an expression, the time will be set to 
a six digit string representing hours, minutes and sec- 
onds. The current or elapsed time can be read by using 
TIMES on the right side of an expression. In the example, 
line 100 sets TIME$ to 12 hours, 30 minutes and 50 sec- 
onds. Line 200 sets NOW$ to the current time. 


VAL line number <var>=VAL( <string> ) 
100 K=VAL("365 DAYS") 


Converts the <string> to a real or integer variable. The 
conversion will terminate once a non-numeric character 
is encountered. In the example, X= 365. © 


B.7 BASIC and Disk Commands 


DIRECTORY LOAD “$",8 
LIST 


Prints a list on the screen of all the files on a diskette. 
FORMAT OPEN 15,8,15,“NEW:<name>,<id>" 
OPEN 15,58515+"NEW:MY PROGRAMS +HN" 


Formats a blank diskette so that it can be used. <name> 
specifies the name of the diskette and <id> is a 2 char- 
acter identification code. In the example, the diskette 
will be formatted with the name MY PROGRAMS and 
the identification code HN. 


LIST LIST {<line number>} {—<line number>} 
LIST 
LIST 300 
LIST 1000- 2OOQO 


a 
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LOAD 


NEW 


RENAME 


RUN 


SAVE 


Lists lines of the program in memory to the screen. 
Optionally a line number or range of line numbers may 
be specified. In the first example, the entire program 
will be listed. In the second example, line 300 only will 
be listed. In the third example, the lines 1000 to 2000 
inclusive will be listed. 


LOAD “<file>",8 
LOAD "SNOW WHITE" +8 


Loads the specified file from the disk drive (unit 8) into 
memory. The current program in memory will be erased. 
If an asterisk (*) is specified in place of the filename, 
the first program in the diskette’s directory will be 
loaded. In the example, the program SNOW WHITE 
will be loaded into memory from the disk drive. 


NEW 


Erases the program and variables currently in mem- 
ory. Used to clear memory before writing a new program. 


OPEN 15,8,15,“RENAME:<filel>=<file2>" 
OPEN 15+8+15+"RENAME:PROGRAM 1=HEART BEATS" 


Changes the name of <file1> to <file2> on a diskette. 
In the example, PROGRAM 1 will be renamed HEART 
BEATS on the diskette in the disk drive. 


RUN {line number} 


RUN 
RUN 100 


Executes the program in memory. If a line number is 
specified, the program is executed beginning with the 
specified line. In the first example, the program in 
memory will be executed from the beginning. In the 
second example, the program in memory will be exe- 
cuted starting with line 100. 


SAVE “<file>"’,8 
SAVE “@0: <file>’’,8 


SAVE "PICKLES" +8 
SAVE "@O:TOMATOES" +8 
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Saves the program currently in memory on diskette as 
the file specified. To replace an existing file on the disk- 
ette with the program in memory, ‘“@0:" must be 
included before the filename. In the first example, the 
program in memory will be saved with the new name 
PICKLES on diskette. The second example will replace 
the file TOMATOES with the program in memory. 


SCRATCH OPEN 15,8,15,,5SCRATCH:<file>’ 
OPEN 15°8,15+"SCRATCH:BUTTERFLIES" 


Erases a file from a diskette. In the example, the file 
BUTTERFLIES will be erased from the diskette in the 
disk drive. 


VERIFY VERIFY “<file>",8 
VERIFY "MATH DRILL" +8 


Checks the specified file on the diskette against the pro- 
gram in memory to VERIFY that it was SAVEd cor- 
rectly. In the example, the program MATH DRILL will 
be located on the diskette and verified. 


B.8 Special Keys 


CLEAR/HOME KEY SHIFT CLR 
HOME 


The HOME key moves the cursor to the 
home position in the upper left corner of 
the screen. SHIFT CLR not only HOMEs 
the cursor but also erases the screen. 


COMMODORE KEY 


The COMMODORE key is used in con- 
junction with the other keys on the com- 
puter’s keyboard to print the graphic 
character on the left front of the key. The 
COMMODORE key used in conjunction 
with the SHIFT key changes the screen to 
lowercase mode. To execute a COMMO- 
DORE sequence, hold down the COM- 
MODORE key while simultaneously 
pressing the other key. 
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CONTROL KEY 


CURSOR KEYS 


INSERT/DELETE KEY 


RESTORE KEY 


RUN/STOP KEY 


CTRL 


The CONTROL key is used in conjunction 
with the number keys to set the color of 
the text and graphics on the screen. To 
execute a CONTROL sequence, hold the 
CONTROL key down while simultane- 
ously pressing the number key. The avail- 
able colors are: 


1 black 5 purple 9 reverse on 


2 white 6 green O reverse off 
3 red 7 blue 

4 cyan 8 yellow 

CRSR ff (up) 


CRSR | (down) 
CRSR < (left) 
CRSR — (right) 


The two keys on the computer’s keyboard 
marked CRSR are used to edit programs. 
Combined with the SHIFT key, the two 
CRSR keys can move the cursor up, down, 
left and right. To edit a line, position the 
cursor at the desired spot, make the cor- 
rection, and depress the RETURN key. 


SHIFT INST 
DEL 


The INSERT/DELETE key is used in edit- 
ing. SHIFT INST moves all text to the 
right of the cursor over to allow the inser- 
tion of one character. DEL deletes the 
character to the left of the cursor. 


RUN/STOP RESTORE 


The RESTORE key when pressed simul- 
taneously with the RUN/STOP key will 
clear the screen, home the cursor, and 
restore the screen to the standard back- 
ground, border and text colors. 


SHIFT RUN 
STOP 


SHIFT RUN loads the first program found 
on the cassette tape and runs it. STOP 
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terminates the execution of a program and 
indicates the line number where the break 
took place. 


SHIFT KEY SHIFT — 


In upper case mode, the SHIFT key is used 
in conjunction with the other keys on the 
computer’s keyboard to print the graphic 
character on the right front of the key. In 
lower case mode, the SHIFT key is used 
in conjunction with the other keys to print 
the upper case of the character typed. To 
execute, hold either SHIFT key down while 
simultaneously pressing the other key. 


B.9 Graphics Statements 


Background Color line number POKE 53281,<expr> 


Changes the color of the background. Values of 
<expr> and their respective colors are: 


0 black 8 orange 

1 white 9 brown 

2 ~~ red 10 light red 

3 cyan 11 gray 1 

4 purple 12 gray 2 

5 green 13 light green 

6 blue 14 light blue 

7 ~~ yellow 15 gray 3 
Border Color _line number POKE 53280,<expr> 


Changes the color of the border. <expr> rep- 
resents one of the color codes (0 to 15) from the 
table above (see ‘‘Background Color’’). 


Text Color line number POKE <expr1>,<expr2> 


Sets the color of the specified screen character 
location. <expr1> is the screen memory loca- 
tion (from 55296 to 56295). Assuming a hori- 
zontal x-axis and a vertical y-axis with 0,0 in 
the upper left corner of the screen, <expr1> 
can be represented for any X and Y value by: 


226 Appendix B Commodore BASIC Language Summary 


line number POKE 55296 + Y « 40 + X, 
<expr2> 


<expr2> must be one of the color codes from 
0 to 15 from the table above (see “Background 
Color’). 


Graphics line number POKE <expri>,<expr2> 


Plots the character or graphic specified by the 
code <expr2> at the screen memory location 
specified by <expr1> (1024 to 2023). Assuming 
a horizontal x-axis and a vertical y-axis with 
0,0 in the upper left corner of the screen, 
<exprl> can be represented for any X and Y 


by: 
line number POKE 1024 + Y * 40 + X,<expr2> 


<expr2> is a screen character or graphics code 
from the table that follows. 


<expr2> Respective ASCII Character 
0 to 31 64 to 95 

32 to 63 32 to 63 

64 to 95 96 to 127 

96 to 127 160 to 191 


B.1 O ASCII Character Codes 


The following codes are used in the CHR$ and ASC functions: 


[rms — ot [ene [ ame [ ers es 
SWITCH TO 
r 


pisaBLes (Em a 
ENABLES ce) 
10 
11 
12 


RETURN 13 
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PRINTS CHARS | PRINTS CHRS | PRINTS CHRS | PRINTS CHRS 


2| < e6/| e« 92| Bl 124 

29 = 61 93 | L125 

30 > 62 t 94 | [tT] 126 

31 ? 68 | « 95 | MM 127 

32 @ eo] } 96 128 

! 33 A 65 [4] 97 [4] 129 
" 34 B 66 | []] 98 130 
# 35 C 67 | 99 131 
$ 36 D 6 1 FY 100] © 132 
% 37 E 69 | Fj 101] f1 133 
& 38 F 70 |} -} 102 | £3 134 
39 G 71 | [T] 103 | £5 135 

( 40 H 721 (]] 104] £7 136 
) 41 | 73} Kl 105 | f2 137 
. 42 J 74 [N 106 £4 138 
+ 43 K ‘75 V| 107 | €6 139 
, 44] L 76 1[}] 08! te 140 
— 45 M 77 W 109 | QR C141 
we} N78) A 110 12 

/ 47 O 9) [J oan 143 
9) 48 P 80 a 112 pa J 144 
1 49/ Qa 113 145 
2 50] R 62) (] 14| BR 146 
3 «51 S a | (vy) 15 | S147 
4 52 T oe ‘oo 
5 653 U 6 | [fd 17] [A 149 
6 5] vy ee] KM iw8] & ~ 150 
7 8 | w  087| © tag 151 
eC x 88 | [*#] 120 | [#) 152 
> “ee Y s9 | []] 121 [J] 153 
58 Z 90 | [9] 122] [9] 154 

; 9 [= 91 | ER 123 |) «AR 155 


228 Appendix B Commodore BASIC Language Summary 


PRINTS CHRS$ | PRINTS CHRS$ | PRINTS CHRS | PRINTS CHRS 


Lo be) dd 


al 
= 
ir 
Ed 
to 
H| 
L| 
LU 
LF 


Feonmonoo 


CODES 192-223 SAME AS 96-127 
CODES 224-254 SAME AS 160-190 
CODE 255 SAME AS 126 
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Appendix C 


Chapter 1 


230 


Answers To Selected 
Questions and Problems 


Think About This (for Fun) 


One word. 


Text Questions 


Section 1.5.3. The output would be close packed (printed with no 
separating spaces). 


Section 1.5.5. The blank space is needed to separate the comma from 
the name (value of N$). Otherwise, the comma and name would be 
close packed, as in HOWDY,SAMMY. : 


Posers and Problems 


1. 10 PRINT "Hello" 
20 PRINT "What’s your height in inches"; 
30 INPUT H 
40 M = 2,54 *# H 


29 PRINT "You are " M " centimeters tall!" 
60 END 


2. 25, 4, 6, 666667, 3 
3. So that the text and variable values will not be close packed. 
The variable names are not enclosed in quotation marks; the 

text of the PRINT statement is. 

4. The semicolon close packed the "?" printed by execution of the 
INPUT statement (60). 

5. See Section 2.4 of Chapter 2. 

6. NAME SCORE AVERAGE | 
<—10 SPACES><10 SPACES—> 

7. Enter and RUN the program. 


*8. 10 PRINT "DEGREES CELSIUS"$ 


20 INPUT C 
30 F = (C * 9/5) + 32 
40 PRINT C " DEGREES C = " F " DEGREES F." 
50 END 
*9. 10 PRINT "HOW MANY CUPS"$ 

20 INPUT C 
30 PRINT "HOW MANY OUNCES"$ 
40 INPUT 2 
50 T = (8 * C) + 2 
SQ PRINT C " CUPS " 2 " OUNCES = " T " TOTAL OUNCES." 
70 END 

*10. 10 PRINT "FIRST NAME"$ 
20 INPUT F% 
30 PRINT "LAST NAME"§ 
40 INPUT L$ 
SO PRINT "HELLO, " F$# " "Le "U8 
GO END 


Chapter 2 


Think About This (for Fun) 
A chair, a bed, and a toothbrush. 


Text Questions 


Section 2.3. INT(1i0 * .999999999 + 1) = 190 
INT(10 * ,O1 + 1) = 1 
Range of INT( (100 * RND(O) + 1) * 10)/10 = 
100.0 to 1.90 
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Range of INT(9901 * RND(O) + 100)/100 100,00 to 1.00 


Range of INT(91 * RND(O) + 3) = 95 to 5 


Posers and Problems 


1. R is for NUMERIC INPUT (years) 
R$ is for STRING INPUT (state name) 

2. There is no real difference. Random output would still be given. 
If X is 1, then 440 is PRINTED, and so on. 

3. Change the text of PRINT statements 400, 420, and 440. 

4. Change PRINT statements 200 and 210 to ask for your age; change 
the ‘39’ in statements 230—240 to your age. 


5. 380 X = INT(S * RND(O) + 1) 
390 ON X GOTO 400,420 1,440,432 +456 
452 PRINT "Ho-ho! Not THAT old!" 
454 GOTO 140 
456 PRINT "Come down some!" 
458 GOTO 140 


6.70 PRINT "What state is the third" 
BO PRINT "largest by land area's 
100 IF R$ = "CALIFORNIA" OR R$ = "California" THEN 130 
110 PRINT "Nov it’s California!" 
130 PRINT "Right! Where the oranges grow!" 


7e S INPUT "What’s your first name"sFS% 
910 PRINT:"Bye-bye,s " FS "I" 


9. X = INT (151 * RND(O) + 30) 
10. 29 to 5, inclusive 


*11.10 PRINT "WHAT’S YOUR HEIGHT IN INCHES"$ 
20 INPUT H 
30 IF H > 72 THEN PRINT "TALL" : GOTO GO 
40 IF H ¢< 6O THEN PRINT "SHORT" : GOTO 60 
20 PRINT "AVERAGE" 
60 END 


*12. 10 PRINT "ENTER THREE SIDES (SEPARATED BY COMMAS) »" 
20 PRINT "WITH THE LONGEST SIDE ENTERED LAST" 
30 INPUT 4+B:C 
40 IF A > C OR B > C THEN 
PRINT “LONGEST SIDE NOT ENTERED LAST!" : GOTO 10 
50 IF (C f 2) = ((A f 2) + (Bf 2)) THEN 
PRINT "THAT IS A RIGHT TRIANGLE" : GOTO 70 
60 PRINT "THAT IS NOT A RIGHT TRIANGLE" 
70 END 
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Chapter 3 


*13, 10 
20 
30 
40 
OQ 
60 
70 


INPUT "ENTER ANY NUMBER>+ 1-10, INCLUSIVE"SN 
A$ = "WAS ENTERED," 

IF N = 3 THEN PRINT "THREE " AS : GOTO 70 
IF N = 6 THEN PRINT "SIX " AS : GOTO 70 

IF N = 9 THEN PRINT "NINE " AS : GOTO 70 
PRINT "NEITHER 3+ Gs OR 9 " Ag 

END 


Think About This (for Fun) 


In 


Text Questions 


Section 3.2.1. 


Yes, if the total character count does not exceed 80. 


Section 3.2.2. The semicolons in statement 110 close pack the display. 
Each READ assigned a new value to variable N. The value of vari- 
able X is increased by the value of N each time statement 70 is executed. 


Section 3.2.3. After statement 30 is executed, the data pointer is 
“past” the last data element. 
The error was caused by no data present to be read (the data pointer 
is “past’’ the last element). 
Statement 50 increases X by 1 each time it is executed. When X is 
equal to 2 (statement 70), transfer is to statement 100. 


The program would endlessly READ, PRINT, and RESTORE. 


Section 3.3.2. Enter the same score for both the maximum and min- 
imum scores. 


Posers and Problems 


1.10 FOR Y = 1 TO 10 


29 READ O%;A;C4 
30 PRINT QO5C$35 


930 


IF A = R THEN 70 


DELETE 60-70 


(or) 


oo RESTORE 
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(or) 
19 DATA 4435567 


2. 40 PRINT $4#55 
2Q NEAT I 
60 END 


3. 5 T= 0 
42 T= T+ 5 
44 X = K + 1 
vo PRINT "THE AVERAGE SCORE [5 " T/K "I" 


4. LOAD, RUN, and LIST program A354 from the text diskette. 


5. FOR X = 10 TO 1 STEP —1 starts at 10 and “counts” the loop to 
1 in increments of —1. 
The commas in statements 40 and 90 tab ten spaces before printing. 
The “‘;”’ in statement 60 close packs the “‘tails” (*). 
The 80 PRINT statement cancels the close packing effect of 
the semicolon in statement 60. 


6. 10 PRINT "CELSIUS" »"FAHRENHEIT" 


20 PRINT Be pts oe a Hi ee a rite, Ba N DO Rh wd 2s Shed ui 
30 FOR C = 0 TO 100 STEP 5 
40 F = 32 + (C * 9/5) 
a0 PRINT CF 
GO NEXT C 
70 END 
7. 10 FOR I = 1 TO 10 
20 PRINT I " CUBED IS " I 7 3 
30 NEXT I 
40 END 


8. The minimum changes would be: 


LOAD "PROGRAM SA" +8 

240 PRINT "MULTIPLICATION DRILL" 
O10 A = Ni * N2 

330 PRINT Ni " x " N2 " = "4 
SAVE "PROGRAM SM" +8 


9. The minimum changes would be: 


LOAD "PROGRAM 3A" +8 

240 PRINT "DIVISION DRILL" 

430 Ni = INT(141 * RND(O) + 4) 

440 N2é = INT(14i * RND(O) + 4) 

445 IF Ni/N2 <> INT(NI/N2) THEN 430 
010 A = Ni / N2 

O30 PRINT Ni " / " N2 " = "5 

SAVE "PROGRAM 3D" +8 
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Chapter 4 


Think About This (for Fun) 


A 50-cent piece and a nickel (one of the coins is not a nickel—although 
the other one is!). 


Text Questions 


Section 4.2.1. N$(3) = PHIL; S(4) = 35; the two lists would be 
printed. 
The lists would be printed, but in reverse order (4 to 1). 


Section 4.2.2. S(1,1) = 95; S (3,2) = 93 

For the complete program in Section 4.2.2, LOAD, RUN, and LIST 
program A422 on the text diskette. 

The commas in statements 65 and 81 are needed to tab before print- 
ing the first and second scores. The PRINT in 95 is needed to cancel 
the tab effect of statement 81. 


Posers and Problems 


1. 10 REM N$()=NAMESS()=SEM, AVE.$F()=FINAL EXAM 
20 DIM N$(20) +5020) sF (20) 
30 FOR [I = 1 TO 20 


40 READ N#$(I)+S¢(1I) +FCI) 

30) PRINT N#$(I)»S(1) sFCI) 

60 NEXT I 

1000 REM DATA FOR 20 STUDENTS AND THEIR SCORES 


1010 DATA "JONES" +80;B82;etc,. 


£900 END 


2. 10 REM N#()=NAME;+S( + )=STUDENT SCORES 
20 DIM N$(25) +$(25,3) 
30 FOR I = 1 TO 25 


40 READ N#(1I) 

50 FOR J = 1 7T0 3 
60 READ S(1I+J) 
70 NEXT J 

B80 NEXT I 
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Chapter 7 


236 


1000 REM DATA FOR 25 STUDENTS» EACH WITH 3 SCORES 
10190 DATA "ABEL+95,80,88, etc. 


. Three states would be randomly selected (with a random chance 


that one would be repeated). 


. Three states would be randomly selected without any state being 


repeated. 


. Five states would be printed without any repetition. Then the 


program becomes an endless loop, trying to find the sixth state 
not yet printed (FOR K = 1 TO 6) when only five states were 
given. 


5 F = 0 
25 H$ = "STEPHEN Fe. --?--" 
55 H$ = "DICK AND JANE’S DOG." 
1010 IF R& = A$ THEN PRINT "GREAT" : RETURN 
1012 IF F = 0 THEN PRINT "HINT: “" H%:F = 1:GOTO 


1000 
1014 PRINT "NOPE...-IT’S " AS =: F = O 


8. LOAD, RUN and LIST program A458 on the next diskette. 


10. 


- 10 DIM 2(10) 


29 FOR I = i TO 4 


30) x = INT(10 * RND(O) + 1) 
4() IF 2¢X) = 1 THEN 30 

0) 2(K) = 1 

60 PRINT xX 

709 NEXT I 

80 END 


LOAD and LIST DRILL MENU from the disk. 

Add the necessary ‘‘POKE” statements that will RUN “DRILL 
MENU’ as the last executable statements in PROGRAM 5, PRO- 
GRAM 5A, PROGRAM 5M, and PROGRAM SD. (Substitute the 
names you used if-different than these.) 

The DRILL MENU program must be SAVEd prior to RUNning 
because if it successfully executes, it will LOAD and RUN another 
program. This erases the DRILL MENU program from memory. 


Think About This (for Fun) 


The man opened one carton, took one package, opened it, and then 


dropped one cigarette overboard. This made the raft a cigarette lighter! 
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Posers and Problems 
1. 


200 INPUT RS 

210 IF R$ = AS THEN PRINT "VERY GOOD" 
: IF F = 0 THEN C = C + 1 +: RETURN 

220 IF F = 0 THEN PRINT "HINT: " H® : F = 1 : GOTO 
200 

224 PRINT "THE ANSWER IS " AS : F = 0 : RETURN 


2. See statement 220 in the above program fragment. 


10 REM 9$()= QUESTIONS A%$()=ANSWERS 2()=FLAG 
20 DIM O€(10) ,A$(10) »2(10) 

30 FOR I = 1 TO 10 

40 READ O$(1I) sAS$(I) 

2O NEXT I 

GO FOR 9 = ij TO 5 


70 X= INT(1O * RND(O) + 1) 
so IF Z(%) = 1 THEN 70 

90 Z(X) = 1 

100 PRINT Q%(X 


1000 REM DATA FOR 10 QUESTIONS,» ANSWERS 
1010 DATA "QUESTION i"+"ANSWER 1i"+s etc. 


2000 END 


4. LOAD, LIST, and RUN program A544 from the text diskette. (Note: 
Very few REM statements are included in this program. Try to 
mentally interpret its execution from the LISTing.) 
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Chapter 6 


Think About This (for Fun) 


There are six F’s (the word of is often overlooked). 


Posers and Problems 


1. LOAD "PROGRAM 10";8 
i125 REM C() — Thecount fora given score 
263 DIM C(100) 
3953 C(S(I)) = C¢(S(I)) + 1 
712 FOR I = 100 TO 1 STEP -1l 


713 IF C(I) = 0 THEN 71G 

715 PRINT "SCORE = " IT» "COUNT = " C(T) 
716 NEXT I 

717 IF 2% «<2? "Y¥" THEN 720 


718 PRINT 4 =: CLOSE4 
SAVE "PROGRAM 10"+8 (OPTIONAL) 


2. 180 DIM A$(15) +O$(15) .2(15) 
3190 FOR I = 1 TO iS: « « . 
350 FOR I = 1 TO 190 
620-77? (DATA for 15 question/answer pairs of your choice) 


Chapter 7 


Think About This (for Fun) 
Bookkeeper 


Text Questions 


Section 7.4.2. For five choices, make the following modifications: 


270 DIM A$(3) »sRE(D) 

OO30 FOR I = 1 TQ 3 § 4 4 4 
S110 4. «6 « (1 - 3) 6 a 
S190 4. « « OR Re 3 «ae 


Then add additional data elements for each fifth choice and its response. 
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Chapter 8 


Think About This (for Fun) 
6 


Posers and Problems 


1.30 FOR I = 1 TO i2 
70 IF PWS = "COMMODORE G4" THEN « « + 


Chapter 9 
Think About This (for Fun) 
Sleeplessness. 

Chapter 10 


Think About This (for Fun) 
50 1/2 + 49 38/76 = 100 


Chapter 11 
Think About This (for Fun) 


The frog would make 28 jumps (after 27 jumps, the frog is 3 feet from 
the top of the well; one more jump of 3 feet is needed). 
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Appendix D 


Listings of Solution 
PROGRAMS TO 


Posers ANd Problems 


Chapter 3 Posers and Problems 
Question 4 


10 REM ==s====2==2=5255===2 190 REM THE SCREEN; AND GET THE RANGE 
20 REM PROGRAM ‘A334’ SOUGHT, 
30 REM sensescrsstcssses 200 REM socscesess2\2“2“2 
40 REM | 210 F = 0 
90 REM MODIFIED DIRECTLY FROM PROGRAM 4 270 PRINT "Q" 
GO REM 230 PRINT TAB(5) "THE EYE COLOR SOUGHT 
BO REM ===s==s====5==5=== Ig" 
90 REM VARIABLE DICTIONARY 240 INPUT C$ 
100 REM =sss=s==2=52==2 270 PRINT "NAMES WITH EYE COLOR " Cs " 
110 REM N#- HYPOTHETICAL NAME ARE: " 
120 REM H#- HYPOTHETICAL HAIR COLOR 280 PRINT "NAME" +"EYE COLOR" »"HAIR 
130 REM E%#- HYPOTHETICAL EYE COLOR COLOR" 
140 REM C%- EYE COLOR SOUGHT 290 PRINT "----"y"--- ----- ot 
130 REM I - LOOP COUNTER  weeee a 
1S0 REM F - COUNTER FOR THE NUMBER OF SOO REM ====s=s=ssss=52=5 
MATCHES FOUND 310 REM DO THE SEARCH LOOP 
170 REM =======s====2 320 REM =sssss255555225 
180 REM SET THE COUNTER TO ZERO; 330 FOR I = 1 TO $0 
CLEAR 340 READ N$+sE% +H 


240 


390 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 


480 


490 
300 
910 
320 
330 
340 
voQ 
360 


370 


380 


vdQ 
G00 
399 
100 
101 


REM ===END OF DATA LIST?=== 

IF NS = "XK" THEN 460 | 

REM ===D0O THE COLORS MATCH?=== 

IF C# <> ES THEN 420 

PRINT N& sE% +HS 

REM ===COUNT THE MATCHES FOUND=== 
PSF aed 

NEXT I 

REM esse = 5-555 -25 

REM END OF CURRENT SEARCH 

REM =Ssss2S=S255555=5 

PRINT "THIS SEARCH FOUND " F " 
MATCH(ES),." 

REM ===GIVYVE OPTION. TO DO ANOTHER 
SEARCH=== 

PRINT "DO YOU WISH ANOTHER SEARCH 
(Y OR ND)" 

INPUT 2% 

IF 2% <>"¥" THEN 1000 

RESTORE 

GOTO 210 

REM ess 25Ss2255=5 

REM DATA LIST 

REM =ssssssssss555 

DATA "KAY" +"GREEN" +"BROWN" s"TRACY" + 
"BLUE" +"BROWN" +"HERB" +"BLUE" » 
"BALD" 

DATA "JANE" >+"BROWN" +"BLACK" »"SUE" 5 
"BROWN" +"BLOND" »"BUCK" +"BLUE" + 
"BLOND" | 

DATA "KARYN" +"GREEN" +"BROWN" »"SAM" 4 
"BLUE" »"BLOND" 

DATA "ANNE" +"HAZEL" +"AUBURN" | 

REM ===ROOM FOR MORE DATA=== 

DATA "Xs "KN" K" 
QO PRINT "*#*#* SEARCH COMPLETED **%" 
O END 


Chapter 4 Text Question 


Oo R 
10 
20 
30 
40 
43 
46 
30 
60 


Section 4.2.2 
EM ===PROGRAM Ad22=== 
DATA "CHUCK" »95 +80 
DATA "MARY" ,80,82 
DATA "PHIL" »,95 +93 
DATA "JEANNIE" 535,98 
PRINT "NAME" s+"TESTIi"»"TEST2" 
PRINT OF som owe ME HE agree enn ae a a SOA ee u 
FOR I = i to 4 
READ N#(I) 


65 
70 
BO 
81 
82 


84 
BG 
88 
90 
94 


98 

100 
1190 
120 
130 


140 
150 
160 


PRINT N#( I)» 

FOR J = 1 70 2 

READ S(T +J) 

PRINT S(I+J)» 

REM T(I) = CUMULATIVE TOTAL EACH 
STUDENT ’S SCORE 

TCI) = TCI) + SCT oJ) 

REM T = CUMULATIVE TOTAL ALL SCORES 
T= T+ SCI +d) 

NEXT J 

REM SKIP A LINE PRIOR 
NEXT NAME 


TO PRINT OF 


PRINT 

NEXT I 

PRINT 

FOR I = 1 TO 4 

PRINT N$(I) "’S AVERAGE IS" 

T(I) / 2 

NEXT I 

PRINT "THE CLASS AVERAGE IS" T / 8 
END | 
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10 
20 
30 
40 
50) 
GO 
70 
=10) 
90) 
100 
110 
120 
130 
140 
150 
160 
1G2 


164 


170 
180 
190 
200 
210 


Question 8 


PROGRAM NAME: 


REM A438 

REM SSSSSSsseseseee2e2rssxasez 

REM CREATES FIVE RANDOM SENTENCES 
REM FROM 3 LISTS OF 7 SUBJECTS, 
REM VERBS; AND DIRECT OBJECTS. 

REM SSrsessetsrteexssrrses 

REM VARIABLE DICTIONARY 

REM SErssesessea2eeee22222r=22 

REM D$( ) - 7 DIRECT OBJECTS 

REM S$( ) - 7 SUBJECTS 

REM US$( ) - 7 VERBS 

REM K+¥sZ - RANDOM NUMBERS,» 1-77 
REM INCLUSIVE, FOR A SUBJECT 

REM VYERBs+ AND DIRECT OBJECT 

REM SrBtsetsssessse2222rerz2s2 

DIM S$(7) +sV$(7) .DS(7) 

PRINT "Q" FOR I = 1 TO ii : PRINT: 
NEXT I PRINT+s"A BIT OF NONSENSE" 
FOR I = 1 to 1500 NEXT I PRINT 
nyu 

REM ===READ THE SUBJECTS=== 

FOR I =1 TO 7 

READ S#(T) 

NEAT I 

REM ===READ THE VERBS=== 
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FOR I = 1707 

READ V$(1I) 

NEXT I 

REM ===READ THE DIRECT OBJECTS=== 
FOR I = 1 TO 7 

READ D#(I) 

NEXT I 

REM ===PRINT 5 RANDOM SENTENCES=== 
FOR I = 1705 

PRINT 

X= INT (7 * RND (0) + 1) 

Y = INT (7 * RND (0) + 1) 

Z = INT (7 * RND (0) + 1) 

PRINT S$(X) " " US(Y) " " DS(zZ) HEM 
NEXT I 

PRINT : PRINT : PRINT : INPUT "DO 
IT AGAIN (Y OR N)"32z2$ 

IF Z$ = "Y" THEN PRINT "Y" : GOTO 
300 

REM ===DATA FOR SUBJECTS=== 

DATA "JIM"»"THE DOG" +"THE CAT" 
DATA "SUE"+"THE GOLD FISH"»+"BILL" 
DATA "JACK AND JILL" 

REM ===DATA FOR VERBS=== 

DATA "HATED" ;,"LOVED"»"WORE" 
"KISSED" 

DATA "TOSSED" +"CAUGHT" +"ATE" 

REM ===DATA FOR DIRECT OBJECTS=== 
DATA "THE BALL"+"THE HILL" »+"THE 
HAT" 

DATA "THE COOKIES"+"THE BAT" +"THE 
HAT" 

DATA "THE MICROCOMPUTER" 

END 


Chapter 4 Posers and Problems 


Question 10 


REM DRILL MENU (CHAPTER 4) 

REM tie ee a 

REM PROGRAM DEMONSTRATES HOW A 
‘MENU’ OF PROGRAMS 

REM MAY BE PROVIDED TO A USER. 
USING ’POKE ’ 

REM STATEMENTS+s ONE PROGRAM WILL 
AUTOMATICALLY 

REM ‘LOAD’ AND ‘RUN’ THE PROGRAM 
DEFINED AS 

REM THE STRING PS#(C)., 

REM 

REM (THIS PROGRAM WAS MADE BY 


MODIFYING 


REM ‘MENU’ PROGRAM 

REM 

REM SSeS ee SSeS Se = Ss 

REM 
PRINT "Q" PRINT PRINT 
PRINT TAB(G) "M A T H DRILL 
MEN U" : PRINT 
PRINTs"YOUR OPTIONS ARE:" : PRINT 
PRINT+"1. MATH SUBTRACTION" 
PRINTs"2. MATH ADDITION" 
PRINT+"3. MATH MULTIPLICATION" 
PRINT+"4,. MATH DIVISION" 
PRINT+"3S. STOP" 
PRINT PRINT + INPUT "YOUR CHOICE 
IS (1-5)2"5C 
IF C «= 1 OR C ? 3 THEN i160 
IF C = 3 THEN PRINT "0" : PRINT 
"SELECTIONS COMPLETED" END 
REM 
REM ===STORE VALUES IN P$()===5 
REM 
FOR I = 1 TO 4 : READ P#(I) : NEAT I 
PRINT "QO" 
REM 

D2 REM ===LOAD AND RUN USING 
“POKES ‘=== 
REM 
PRINT "LOAD "SCHR#(34)5P$(C) 5 
CHR$(34)5" 58" 
POKE 631/19 : POKE G32+17 : POKE 
63313 
POKE 634,82 : POKE 635,85 : POKE 
636;+78 POKE 63713 POKE 1608;7 
REM 
REM ===DATA FOR PROGRAM NAMES TO 
LOAD AND RUN=== 
REM 
DATA "PROGRAM 3"+"PROGRAM 


SA" >s"PROGRAM SM"+"PROGRAM 3D" 
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10 
20 
30 
4) 
0 
GO 
70 


Question 4 


REM s==AS44=== 

REM 

REM ONE SOLUTION TO PROBLEM 35.4.4 
REM 

REM DIMENSION VARTABLES 

REM 


DIM 9$(15) +A$(15) +H$(15) +2015) » 
C#$(3) »WS$(3) 
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72 
60 
90 
100 


110 
120 


130 
140 


150 
160 
170 
180 


190 


200 
210 
220 
230 
240 


200 
260 


270 
260 
290 
300 


310 
320 
330 
340 
300 
360 
370 
360 


390 
400 


410 
420 


422 
430 
432 
434 


436 
440 


REM 
REM 
REM 


STORE QUESTIONS: ANSWERS» HINTS 


1 7T0 15 READ QO$(1)+ 
NEXT I 


REM I = 
AS(I) sH$ (I) 
REM 
REM STORE CORRECT» 
FEEDBACK 
REM 
FOR I = 
NEXT I 
REM ; 
REM CLEAR SCREEN+ SHOW TITLE 
REM 
PRINT "9" 
NEXT I 
PRINTs"EIGHT RANDOM QUESTIONS" 
FOR I = 1 TO 1500 NEXT I 
REM 
REM 
REM 
FOR 9 = 170 86 
PRINT "Q" FOR I = 
NEXT I F=Q 
REM 
REM RANDOMLY 
FROM LIST 
REM 
os 
REM 
REM CHECK FOR 
THIS NUMBER 
REM 
IF 2(J) = 
REM 
REM 
REM 
2(J) = 1 
REM 
REM PRINT THE QUESTION» 
ANSWER 
REM 
PRINT 
PRINT 
REM 
REM GET A RANDOM NUMBER 
FEEDBACK 
REM 
R = 
REM 
REM CHECK ANSWER 
ACCORDINGLY 
REM 
IF R#® = 


INCORRECT 


1 TO 3 READ C#(1) »sWS(T) 


FOR I = 1 TO 11 PRINT 


EIGHT QUESTION LOOP 
1 7T0 6 PRINT 
SELECT QUESTION NUMBER 


INT(1S * RND(O) + 1) 


FIRST SELECTION OF 
1 THEN 280 

‘FLAG’ THE NUMBER SELECTED 
GET AN 
PRINT QO&(J)5 INPUT R$ 
FOR 

INT (3) 


* RND(O) + 1) 


AND RESPOND 


A$(J) THEN PRINT :+CS(R) 


430 


480 
470 
480 
ago 
500 


210 
220 


330 
340 
200 
260 


370 
380 


390 


600 


610 


730 


EG = 6 = ft GOTO 500 

IF F = 0 THEN PRINT+WS(R) " HINT?" 
PRINT »sH#( J) F = 1 GOTO 400 

REM 

REM GIVE ANSWER ON SECOND MISS 

REM 

PRINT "A CORRECT ANSWER IS: " AS(J) 

PRINT INPUT "PRESS RETURN TO 

CONTINUE" 52% 

NEXT Q 

PRINT "Q" FOR I = i TO 11 PRINT 
NEXT I 

PRINT "YOU ANSWERED" C "CORRECTLY." 

END 

REM 

REM 15 QUESTIONS,» ANSWERS» HINTS 

REM 

DATA "LAST NAME OF ‘BOLERO’ 

COMPOSER" »"RAVEL" +"SWEATERS 

CAN UN-" 

DATA "PROGRAMS ARE STORED ON A 

FLOPPY -"s"DISK"+"SOME HAVE 

SLIPPED" 

DATA "THE LARGEST STATE 


IS"+"ALASKA" +"FROZEN BUNS" 

DATA "THE LARGEST MAKER OF 
COMPUTERS IS"s"IBM"+"FOUNDED BY 
HOLLERITH" 

DATA "THE FIRST ‘CALCULATOR ’ 
THE" +"ABACUS" »"ABRA-KA-DABRA" 
DATA "THE FIRST ELECTRONIC COMPUTER 
WAS" s"ENTAC"s"JUST ‘ENY’ OL’ NAME" 
DATA "THE ‘DISPLAY’ STATEMENT IN 
BASIC" »"PRINT" »"GUTENBURG" 

DATA "EVERY GOSUB NEEDS A", 
"RETURN" +"IT’S ON THE KEYBOARD" 


WAS 


DATA "DATA IN BASIC MUST BE", 
"READ" ,"---- SAILS IN THE SUNSET" 
DATA "A VARTABLE IS ‘NUMERIC’ 


OR" >s"STRING"+"HANGING BY A THREAD" 
DATA "THE ‘SHOW ME’ STATE I[5"+ 
"MISSOURI" +"GATEWAY TO THE WEST" 
DATA "’HARD COPY’ IS OBTAINED FROM 
A"+"PRINTER" +"THE PRINCE AND THE 
PAUPER" 

DATA "THERE’S HARDWARE, FIRMWARE 
AND" +"SOFTWARE" »"CUSHIONY-WARE" 
DATA "A ‘SEA-FARING’ COMPUTER 

MAN" »"COMMODORE" »"YOU KNOW HIM 
WELL" 


DATA "A STATEMENT SEEN BUT NOT 
EXECUTED" +"REM"s+"SORRY» NO REMARKS 
HERE" 

REM 
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740 
790 
760 
779 
780 


REM 
REM 
DATA 
DATA 
DATA 


3 FEEDBACK SETS 


"G RE A T"s"I‘’LL SAY THIS" 
"F AN TAS TI C"s"TRY THIS" 
"HO T - DO G"+"LOOK AT THIS" 


Chapter 7 Test Question 


10 
20 
30 
ao 
OQ 
60 
70 
BO 
100 


110 
120 
130 
140 


150 
1S0 
170 
180 
190 


200 
210 
220 
230 
240 
290 
280 
280 
300 
310 
320 
330 
340 
300 
370 
380 
390 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
NAME 
REM 
REM 
DIM 
GOSU 
CENT 
PRIN 
ALPH 
PRIN 
THE" 
PRIN 
NAME 
PRIN 
ALPH 
PRIN 
CONT 
GET 
GOSU 
FOR 
PRIN 
INPU 
i oa 
GOSU 
NEXT 
N = 
REM 
REM 
REM 
FOR 
Digs 
FOR 
IF L 
LS(K 


Section 7.3.2 


PROGRAM NAME: A 732 


SHOWS SOLUTION TO QUESTION 
ON ALPHABETIZING (SORTING) 
QUESTION IN SEC. 7.3.2 


L$ - LAST NAME (SPACE) FIRST 
N - NUMBER OF NAMES TO SORT 
L$(100) 
B 19000: REM SCREEN CLEAR/ 
ER 
T "THIS PROGRAM WILL 
ABETIZE" 
T "A LIST OF NAMES INPUT IN 
T "SEQUENCE: LAST NAME FIRST 
To: PRINT "ENTER ‘STOP’ FOR THE 
ABETIZED" 

T "LIST. (ANY KEY TO 

INUE,. 4 hee 

26: IF 2$="" THEN 200 

B 1000 

N = 1 TO 100 

T "LAST NAME FIRST NAME" S 

T LS(N) 

$(N) = "STOP" THEN 300 

B 1000 

N 

N - 1 


K = J - 1 TO STEP - 1 
$(K) < = D1l$S THEN 430 
+ 1) = LS(K) 


410 
420 
430 
430 
460 
470 
480 


490 
482 


“500 


910 


320 
930 
240 
300 
960 
370 
0980 
390 
600 
380 


1000 


1010 


1500 
13515 


NEXT K 
K = 0 
Lé¢(K + 1) = 
NEXT J 
REM 
GOSUB 1000 
PRINT "DO YOU WANT A PRINTER COPY 


(Y OR N)?" 
GET Z2$:IF Z$="" THEN 490 
GOSUB 1000 
IF 2% = "¥" THEN OPEN 4+4 CMD4 
PRINT PRINT "ALPHABETIZED LIST:": 
PRINT 
FOR I = 1 TON 
PRINT I " " L#(¢TI) 
NEXT I 
IF 2$="¥" THEN PRINT#4 CLOSE 4 
PRINT 
PRINT "DO YOU WANT ANOTHER LIST" 
GET Z2$:1IF Z$="" THEN 590 
IF 2% = "¥" THEN 470 
GOTO 1500 
REM ========SCREEN SUBROUTINE 
PRINT "Q" FOR I = 1 TO 10: PRINT 
NEXT I: RETURN 
REM sesessse=sEND OF 
ROUTINEsxs=ss=2=2 
PRINT =: PRINT "*** DON E ¥#%" 
END 
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260 
270 
280 
300 


310 
320 
330 
340 
350 
360 
410 


420 


430 


440 


REM PROGRAM ISLAND 
DIM C$(5) +L $(5) sRE(3) THOS) 205) 


PRINT "O":FOR I=1 TO 9:PRINT:NEXT I 
PRINT "DISCOVER 
SOMETHING" 

PRINT 

PRINT "ABOUT YOURSELF 
FOR I=1 TO 1500:NEXT I:PRINT "0" 
FOR I=1 TO ii:PRINT:NEXT I 

PRINT " OUR eS 7 0 RO a at 
FOR I=1 TO 1000:NEXT I:PRINT "9" 
PRINT "THERE ARE FIVE SURVIVORS 
FROM A" 

PRINT:PRINT "“SHIPWRECK. (CALL THEM 
PEOPLE" 

PRINT:PRINT "A+ Bs C+ D+ AND E.) Ar 
B, AND C" 


PRINT:PRINT "ARE ON ONE ISLANDS$ ON 
ANOTHER" 
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450 PRINT:PRINT "ISLAND+> WITH SHARK- 780 PRINT:PRINT "POINT THAT SUICIDE IS 


INFESTED " ATTEMPTED! " 
460 PRINT:PRINT "WATERS BETWEEN» ARE D 790 PRINT:PRINT "(ANY KEY FOR THE 
AND E," CLIMAX!)" 
470 PRINT:PRINT "PERSONS A AND D ARE 800 GET 2$:IF Z2$="" THEN 800 
BETROTHED." 810 PRINT "O"sPRINT "REMEMBER ‘E’? 
480 PRINT:PRINT "NOW PERSON ‘A’ WANTS WELL,» ’E’ SEES WHAT" 
TO BE WITH" 820 PRINT:PRINT "’A’ IS DOING: AND 
490 PRINT: PRINT "PERSON ‘D’+ SO ‘A’ STOPS THE ATTEMPT!" 
STARTS BUILDING" 830 PRINT:PRINT "’E’ THEN SPENDS TIME 
900 PRINT: PRINT "A BOAT. (ANY KEY WILL COUNSELING WITH" 
CONTINUE 44+)" 840 PRINT:PRINT "‘A’ UNTIL A SENSE OF 
270 GET Z$:IF 2$="" THEN 370 WORTH IS BACK." 
980 PRINT "O":sPRINT "BUT ’A’ GETS TO 850 PRINT:PRINT "SOON THEREAFTER» A 
THE POINT IN THE" ‘LOOKOUT’ ON A" 
O30 PRINT:PRINT "BOAT BUILDING WHERE 832 PRINT:PRINT "PASSING SHIP SEES THE 
HELP IS NEEDED." SURVIVORS» AND" 
GOO PRINT:PRINT "SO» ‘A’ GOES TO ‘B’ 854 PRINT: PRINT "ALL ARE RESCUED!" 
AND ASKS FOR" 860 PRINT:PRINT:PRINT: PRINT " S0++." 
G10 PRINT:PRINT "SOME HELP. NOW ’B’ IS 870 PRINT:PRINT:PRINT "(ANY KEY...)" 
BUSILY" 880 GET Z2$:IF Z$=""" THEN 880 
G20 PRINT:PRINT "WORKING ON SOME SAL-~ B90 PRINT "O":PRINT" WE HAVE THE FIVE 
WAGED RADIO PARTS" PEOPLE: " 
G30 PRINT:PRINT "AND FEELS THAT CON- J00 PRINT 
TACTING SOMEONE" J10 PRINT:PRINT" A"“>s"THE BOAT BUILDER" 
G40 PRINT:PRINT "IS MUCH MORE IMPORTANT 320 PRINT: PRINT" B"+"THE RADIO 
THAN A’S BOAT." BUILDER" 
630 PRINT:PRINT "SO ‘A’ ASKS ‘C’ FOR J3Q0 PRINT: PRINT" C"s"THE HELPER/LOVER" 
HELP WITH THE" J40 PRINT:PRINT" D"“+"THE HEARTBROKEN" 
G60 PRINT:PRINT “BOAT BUILDING. ‘C’ J90 PRINT:PRINT" E"+"THE COUNSELOR" 
READILY AGREES +" J6Q0 PRINT:PRINT "PLEASE RANK THESE 
670 PRINT:PRINT "BUT ONLY ON THE CONDI- PEOPLE BY LETTER" 
TION THAT ‘A‘" 370 PRINT "IN ORDER OF YOUR PERSONAL | 
680 PRINT:PRINT "AND ‘C’ BECOME LOVERS, ‘ESTEEM’. .+" 
(ANY KEY)" 380 PRINT 
690 GET Z$:IF Z$="" THEN 690 1020 FOR I#1i To 5 
700 PRINT "QO" sPRINT "WELL +> ‘A’ THINKS 1030 PRINTTAB(8) "RANK" 13 
IT OVER AND DECIDES" 1040 INPUT R#(I1) 
710 PRINT: PRINT “THAT ANYTHING IS WORTH TO45 IF R$(1)<¢"A" OR R$¥(I)>"E" THEN 
BEING WITH" PRINT+"* OUT OF RANGE *" +: GOTO 
720 PRINT:PRINT "’D’. EVENTUALLY» THE 1030 
BOAT IS BUILT>»" 1050 NEXT I 
730 PRINT:PRINT “AND ‘A’ GETS. TO THE 1060 PRINT "O":FOR I= 1 TO 
OTHER ISLAND," Lis:PRINT:NEXT I 
740 PRINT: PRINT "HOWEVER> ‘D’ SAW WHAT 1070 PRINT" HMMMMM,..LET ME SEE..." 
~ WAS HAPPENING" 1080 FOR I=1 TO 2000:NEXT I 
790 PRINT: PRINT "AS THE BOAT WAS BEING 1120 DATA "A" s"B"s"C"y"D" "EN 
BUILT!" 1140 FOR I=1 TO S:READ C#(1I):NEXT I 
76O PRINT:PRINT "“’D’ IS HEARTBROKEN BY 1180 DATA "HAVE SEXUAL INCLINATIONS" 
WHAT ‘A’ HAS" 1190 DATA "THINK THINGS OUT 
762 PRINT: PRINT "DONE» AND CAN NO INTELLIGENTLY" 
LONGER LOVE ‘A’, 1200 DATA "TAKE ADVANTAGE OF ANY 
779 PRINT:PRINT "THIS CRUSHES A‘’S FEEL- OPPORTUNITY" 
INGS TO THE" 1210 DATA "ARE A RIGHTEOUS PERSON" 
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1390 
1400 
1480 


DATA "ARE A WARM AND LOVING 
PERSON" . 

FOR I=1 TO 5:READ TS(I):NEXT I 
DATA "VERY OFTEN" »"REGULARLY" + 
"SOMETIMES" 

DATA "EVERY SO OFTEN" +"ONLY VERY 
RARELY" 

FOR I=1 TO S:READ L#(I):NEXT I 
FOR I=1 TO S:PRINT "Q":PRINT 
PRINT" MY PROFILE RANKING OF YOU 
INDICATES: ":PRINT 

PRINT: PRINT:PRINT:PRINTs PRINT 
PRINT »sL$(I) "» YOU" 

FOR J=1 TO 5 


1490 
1520 
1530 


1540 
1550 
1560 
1370 


1580 
1590 
1600 


1610 


IF R$(T)<22C0$(J) THEN 1550 

PRINT TAB(S) T#(J) "I" 
PRINT:PRINT: PRINT TAB(10)5"(ANY 
KEVYses)" 

GET 2$:I1F 2$="THEN 1540 

NEXT J 

NEXT I 

PRINT "Q"sFOR I=1 TO 
11isPRINT:NEXT I 


PRINT TAB(8)5"S0O NOW YOU KNOW..." 


PRINT 

PRINT" (BUT I’M NO 
PSYCHOLOGIST...)" 
END 
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Appendix E 


Making Music with the 
Commodore 64 


Commodore BASIC supports the creation of sound effects and music 
using the external speaker in the television or monitor. This appendix 
describes the various statements and procedures necessary to play 
music on the Commodore 64. It is included as an appendix rather 
than a chapter section because some of the statements require a 
knowledge of music that not all readers may have, and the program- 
ming steps to create a score may be tedious (i.e., if you don’t have a 
lot of patience and you can’t read music, you'd better skip this 
appendix). 


E.1 Generating Music 


The Commodore 64 has a remarkable capacity for generating sound. 
As usual in the computer world, this expanded capacity is associated 
with complexity. The Commodore has three voices that can be played 
individually or together in any combination to form 96 notes (8 octaves). 
For simplicity, this appendix limits its discussion to voice number 1 
but tables including all necessary information to use all three voices 
are included. | 
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Each voice requires six settings in order to generate music: volume, 
attack/decay rate, sustain/release rate, high frequency of note, low 
frequency of note, and the waveform pattern. The first three settings 
are executed once in a program, usually at the beginning. They set 
the loudness and the type of instrument being played. The last three 
settings define the frequency of the note and the pattern of its sound 
wave. These settings are repeated for each note in the song. 


VOLUME SETTING line number POKE 54296,<expr> 


Sets the volume for all voices based on 
the value of <expr>. A value of 0 turns 
off the volume and a value of 15 is the 
loudest setting. 


ATTACK/DECAY line number POKE 54277,<expr> 


Sets the attack/decay rate based on the 
value of <expr>. Use the following chart 
as a guide in choosing the attack/decay 
rate, the sustain/release rate, and the 
waveform pattern: 


Attack/ Sustain 

Instrument Decay Release Waveform 

Trumpet 96 0 33 

Flute 96 0 17 

Harpsichord 9 0 33 

Xylophone 9 0 17 

Organ 0 240 33 

Calliope 0 240 17 

Accordion 102 0 17 
SUSTAIN/RELEASE line number POKE 54278,<expr> 


Sets the sustain/release rate based on 
the value of <expr>. See chart above 
for suggested settings. 


NOTE FREQUENCIES line number POKE 54273,<expr1> 
line number POKE 54272,<expr2> 


Sets the frequency of the note to be 

played based on the following formulae: 

exprl = INT((frequency/2 { (7-octave) ) 
/ 256) 

expr2 = INT((frequency/2 ‘ (7-octave) ) 
— expr 1 * 256) 
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Note | Frequency Note 
C 34334 F# 
C# 36376 G 

D 38539 G# 
D# 40830 A 

E 43258 A# 
F 45830 B 
WAVEFORM PATTERN 


E.2 A Musical Example 


where octave is a number from 0 to 7 
representing 8 octaves and frequency is 
the note frequency based on the chart 
below. | 


Frequency 


48556 
51443 
54502 
57743 
61176 
64814 


See Section F.4 for a BASIC program to 
print the values of <exprl> and 
<expr2> for every note in all 8 octaves. 


line number POKE 54276,<expr> 


Sets the pattern for the sound wave 
based on the value of <expr> and begins 
to play the note. Two basic waveforms 
are used to play music: the triangle 
( <expr>=17 ) and the sawtooth 
( <expr> = 33 ). To stop the note from 
playing use a value for <expr> equal to | 
<expr>-— 1 (i.e. 16 for a triangle wave 


and 32 for a sawtooth wave). 


In order to write a program to play music, you will need to include 
the following steps in your program: 


1. Set the VOLUME (preferably at the highest setting). 

2. Set the appropriate ATTACK/DECAY rate. 

3. Set the appropriate SUSTAIN/RELEASE rate. 

4. Compute the high and low FREQUENCY values for the note (or 
find them in the chart produced by the program in Section F.4). 
Use the two POKEs to set the note frequency. 


uw 


. Set the WAVEFORM pattern, which begins playing the note. 


6. Enter a FOR-NEXT loop that sets the DURATION of the note. For 
example the statement 50 FOR T=1 TO 250:NEXT T is approxi- 


mately a quarter note. 


Re ae ee ee ee 
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7. Stop the note by poking the WAVEFORM pattern with <expr>-— 1. 


The following program is a short example of the sound statements 
described above (see if you can name that tune in one note): 


10 POKE 354296 ,15 :REM SET VOLUME 

20 POKE 34277;0 :REM SET ATTACK/DECAY 
30 POKE 34278 ,240 :REM SET SUSTAIN/RELEASE 
40 POKE 34273,16 :REM SET HIGH FREQUENCY 
20 POKE 34272;195 SREM SET LOW FREQUENCY 
GO POKE 34276517 :REM SET WAVEFORM 

70 FOR T=1 TO 250:NEAT T :REM HOLD 1/4 NOTE 

80 POKE 34276.16 ‘REM STOP NOTE 

100 REM 

110 REM CONTINUE PLAYING NOTES 

20 REM 


| E.3 Ler the Voices Join In 


As indicated in the beginning of this appendix, three voices are avail- 
able that can be used for chords and harmony. The discussion above 
only applies to the first voice. However, steps to making music with 
the other two voices are the same but the memory locations that need 
to be POKEd are different. The following chart will give you a sum- 
mary of the memory locations for all three voices. 


Function Voice 1 Voice 2 Voice 3 
Volume 54296 54296 54296 
Attack/Decay 54277 54284 54291 
Sustain/Release 54278 54285 54292 
High frequency 54273 54280 54287 
Low frequency 54272 54279 54286 


E.4 Generating a Note Frequency Table 


The BASIC program below will print a table of high and low frequency 
values and play each of the 12 notes in the 8 octaves. This printed 
table may aid in the determination of values to be POKEd for short 
songs. Programs that play longer songs will be more efficient if they 
use the formulae in Section F.1.(This program appears on the diskette 
available for this book as NOTE TABLE.) 
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10 POKE 34296;15 

20 POKE 34277:0 

30 POKE 34278 +240 

40 FOR OCT = 0 TO 7 

20 FOR N = 1 TO l2 

GO READ NTE sN$ 

70 EL=INTC(NTE/2¢(7-OCT))/256) 

BO E2=INTC(NTE/24(7-OCT) )-E1*256) 

90 PRINT OCT NS ,E1+E? 

100 POKE 54273;E1 

110 POKE 34272;E2 

120 POKE 5427617 

130 FOR T=i TO 250: NEXT T 

140 POKE 54276,+18 

150 NEXT N 

180 RESTORE 

170 NEXT OCT 

180 END 

190 DATA 34334,"C" 136376 +"C#" +38539,"D" 
200 DATA 40830 ,"D#" +43258,"E" ,45830,"F" 
210 DATA 48556 ¢"F#" 451443 +"G" 554502 »"GH#" 
220 DATA 37743,"A",61176,"A#" »64814d,"B" 


5 a 
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Index 


ABS, 126, 219 

Algorithm, 187 

Arrays, 51 

ASC, 155, 221 

ASCII codes, 155, 227-229 
ATN, 219 

Attack/decay, 248 


Background color, 169, 226 
Backup, 201 

BASIC, 11, 196, 204 

Batch access, 9 

Booting, 8, 206—207 
Border color, 169, 226 
Branching, 12, 198 


CHR$, 155, 170, 221 
Clearing the screen, 33, 170, 216 
CLOSE, 93 

CLR/HOME key, 33, 224 
Colon, 34 

Color, 168, 169, 180, 226 
Color memory map, 174 
Commands, 12 

Commands as statements, 68 
Commas, 13, 216 
Commodore key, 224 
Commodore 64, 10, 203—210 


Computer units, 9 
Concatenation, 154 
COS, 219 

CRSR keys, 225 
CRT,9 

CTRL key, 225 


Data pointer, 37 
DATA-READ, 37, 41, 78, 212 
Data storage, 9 

Debugging, 195 

Deleting files (SCRATCH), 224 
Deleting lines, 18 
Delimiters, 33 

Design, 186 

DIM, 63, 212 

Directory of diskette, 222 
Disk drive, 9, 205 

Diskette care, 209 
Document, 199 

Drill and practice, 99 
Duration, 249 


Editing, 17 

END, 15, 212 

Erasing files (SCRATCH), 224 
Evaluation, 196 

EXP, 219 
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Files READ, 92 

Files WRITE, 92 

Flag, 63, 117 

Formatting, 208, 222 
FOR-NEXT, 36, 79, 212, 214 
Functions, 23 


GET, 212 

Gluteal limits, 198 
GOSUB-RETURN, 64, 80, 213, 216 
GOTO, 21, 75, 213 

Graphics, 166, 227 

Guidelines for development, 196 


Halt, 36, 210 - 
History, 8 


IF-THEN, 22, 76, 213 
Initializing, 208, 222 
INITIALZ, 93 
INPUT, 14, 75, 213 
Input unit, 9 

INPUT #, 92 
Instructional sequence, 190 
INST/DEL key, 225 
INT, 23, 220 

Integer, 23, 218 
Interactive, 9 
ISLAND, 138 


Keybord, 203 
KEYWORD DEMO, 161 
KEYWORD subroutine, 158 


LEFT$, 156, 221 
LEN, 155, 221 
~LET, 15, 74-75, 214 
LIST, 16, 25, 222 
Literature, 199 
LOAD, 25, 223 
LOG, 220 


MENU, 68 

MID$, 156, 221 

MINIMUM ANSWER, 157 
Minimum answer subroutine, 157 
Modularization, 197 

Monitor, 205 

Multiple statements, 33-34 
Music, 247 

Musical examples, 249 


NEW, 16, 25, 223 
NEXT, 214 


254 Index 


Notes, 248, 250 


Numeric variables, 12, 218 


Objectives, 8, 21, 33, 51, 74, 85, 113, 154, 166, 186, 


189, 194, 197 
Octave, 248 


One-dimensional arrays, 51, 55 


ON-GOSUB, 214 


ON-GOTO, 23, 77, 215 


OPEN, 92 
Operators, 218 
Output unit, 9 


PEEK, 215 


Performance objectives, 189, 197 


Personality, 197 
Pilot testing, 195 


POKE, 169, 173, 226—227 


POS, 217 

PRINT, 13, 74, 215 
PRINT TAB, 28, 30 
PRINT “ ” 33, 216 
Printer, 206, 209 
PRINT #, 92 
Problem solving, 86 
Processor unit, 9 


Program construction, 194 


PROGRAM 1, 16, 24 
PROGRAM 2, 25 
PROGRAM 3, 27 
PROGRAM 4, 37 
PROGRAM 5, 42 
PROGRAM 5A, 45 
PROGRAM 6, 55 
PROGRAM 7, 59 
PROGRAM 8, 65 
PROGRAM 9, 87 
PROGRAM 10, 89 
PROGRAM 11, 93 
PROGRAM 12, 100 
PROGRAM 13, 102 
PROGRAM 14, 106 
PROGRAM 15, 109 
PROGRAM 16, 114 
PROGRAM 17, 117 
PROGRAM 18, 122 
PROGRAM 19, 128 
PROGRAM 20, 130 
PROGRAM 21, 135 
PROGRAM 22, 138 
PROGRAM 23, 145 
PROGRAM 24, 148 
PROGRAM 25, 171 
PROGRAM 26, 177 


RAM, 10, 203, 204 | SIN, 220 


Rationale, 188 SOCKS, 160 
READ, 216 Software evaluation, 200 
Real, 23, 218 Sorting, 134 
REM, 21, 86, 216 SPC, 217 
RENAME, 223 SOR, 220 
RESTORE, 35, 216 Statements, 11 
RESTORE key, 225 STEP, 36 
RETURN, 216 String functions, 115 
RETURN key, 14, 37, 207 String variables, 12, 218 
Reverse characters, 217 STR$§, 221 
Revision, 195 Supplemental use, 9, 198 
RIGHT$, 156, 221 Sustain/release, 248 
~ RND, 23, 220 Systems approach, 187, 194, 197 
ROM, 204 . 
RUN, 16, 25, 223 TAB, 218 
RUN/STOP key, 225 _ TAN, 220 
RVS OFF key, 217 _ Television, 205 
RVS ON key, 217 Testing, 144 
Text color, 226 
SAVE, 16, 25, 223 TIME$, 222 
Scientific notation, 27 Tutorials, 113 
SCRATCH, 224 Two-dimensional arrays, 53 
Screen memory map, 173 
Semicolons, 13, 217 VAL, 222 
SEQUEL 1, 69 VARIABLES, 12, 218 
SEQUEL 2, 69 VERIFY, 224 
Sequential file, 92 | Voices, 250 
SGN, 220 Volume, 248 
SHIFT key, 226 
Simulations, 129 Waveform, 249 
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